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FORMATTED LISTINGS 

; #################################################################################################### 

; # PROJECT : Apple /// SOS Profile Driver 1.30 (6502 Assembly Source Code) 
; # FILE NAME: PROFILE. TEXT 

; #################################################################################################### 



.NOPATCHLIST 
.TITLE 



'SOS Profile Driver 



Version 1.30 14-Jan-83" 



SOS Profile Driver 



Revisions : 

1.10R 05-May-82 

The GOODEXIT routine was changed to complete the dummy handshake 
so any pending Profile spare table updates would get rewritten 
on the disk. 

The GETBYTES routine was changed so a bad block number would get 
flagged as such and not get flagged as a bad byte count. 

1.11R 12-May-82 

The driver is slowed to 1MHz only when talking to the card and 
doing psuedo DMA; this will enable it to make the 5:1 interleave. 
The reference to the clear parity address that occurs just after 
entering the driver was corrected to be a write instead of a read. 

1.11R 14-May-82 

The block ID check was removed when reading to speed up the driver 
and allow reading the status info which doesn't have a block ID. 
The 2nd reset, which prevented the read/write head from being 
retracted off the data area on read and write errors, was removed. 

1.12R Ol-Sep-82 

Interrupts were disabled in the LAST_PGE routine before saving 
bytes and FE, instead of just before the data transfer, since 
those bytes might be changed by an interrupt routine, and the old 
instead of the new (correct) values would get restored. 



1.30 



14-Jan-83 



Interrupts are disabled while modifying the environment register 
and RSTORENV is changed to leave the screen bit (bit 5) unmodified; 
this eleminates spurious screen flashing. Control code is 
processed as a NOP, instead of an error. 



DEVTYPE 

SUBTYPE 

MANUF 

RELEASE 

MAXBLOCK 



. EQU 
.EQU 
.EQU 
.EQU 
.EQU 
. PAGE 



0D1 
01 

0001 
1300 
2600 



; Apple Computer Inc. 

;4.86 megabytes (+16K spares) 



The macro SWITCH performs an N way branch based on a switch index. 
SWITCH [index], [bounds], adrs_table, [*] 



000061 


.MACRO 


SWITCH 




000062 


. IF 


"%1" <> "" 


;If PARM1 is present, 


000063 


LDA 


%1 


; Load A with switch index 


000064 


. ENDC 






000065 


. IF 


"%2" <> "" 


;If PARM2 is present, 


000066 


CMP 


#%2+l 


; Perform bounds checking 


000067 


BCS 


$010 


; on switch index 


000068 


.ENDC 






000069 


ASL 


A 




000070 


TAY 






000071 


LDA 


%3+l,Y 


;Get switch address from table 


000072 


PHA 




; and push onto stack 


000073 


LDA 


%3, Y 




000074 


PHA 






000075 


. IF 


"%4" <> "*" 


;If PARM4 is omitted, 


000076 


RTS 




; Exit to code 


000077 


.ENDC 




; Otherwise, drop through 


000078 S010 


. ENDM 






000079 








000080 


. INCLUDE 


PROFILE. A. TEXT 




000081 


. INCLUDE 


PROFILE. B. TEXT 




000082 








000083 


.END 
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#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



PROFILE. TEXT 
84 

4045 

Assembly Language Reformatter 1.0.2 (07 January 19 
David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Profile Driver 1.30 (6502 Assembly Source Code) 

# FILE NAME: PROFILE . A . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 





.WORD 


0FFFF 








.WORD 


59. 








.ASCII 


"Profile Driver — " 






.ASCII 


"Copyright 


(C) 1983 by Apple Computer Inc." 


; Device Information 


Block (DIB) 






DIB_LINK1 


.WORD 









DIB_ENTRY1 


.WORD 


MAIN 






DIB_NAME1 


.BYTE 


8 








.ASCII 


" .PROFILE" 








. BLOCK 


7, 






DIB_DNUM1 


.BYTE 


80 




; active, no page alignment 


DIB_SL0T1 


.BYTE 


OFF 






DIB_UNIT1 


.BYTE 









DIB_TYPE1 


.BYTE 


DEVTYPE 






DIB_SUBTYPE1 


.BYTE 


SUBTYPE 








.BYTE 









DIB_BL0CK1 


.WORD 


MAXBLOCK 






DIB_MID1 


.WORD 


MANUF 






DIB_RLS1 


.WORD 


RELEASE 






DIB_DCBCNT1 


.WORD 


0001 




Configuration Block 


WRTVER 


.BYTE 


OFF 








.PAGE 








; SOS 


Global Equates 


(jump table 


entry points) 




ALLOCS IR 


.EQU 


1913 




; allocate System Interrupt Resource 


DEALCSIR 


. EQU 


1916 




; deallocate " " " 


SELC800 


.EQU 


1922 




; select/deselect i/o expansion space 


SYSERR 


. EQU 


1928 




; system error routine 


DO_DMA 


.EQU 


18F0 




; place to reloc code for banking 


INDDMA 


.EQU 


0F0 






VECTLO 


.EQU 


DO DMA+7 






SOS_ZPAGE 


.EQU 


18 






SOS 


Error Codes 








XREQCODE 


.EQU 


20 




; Invalid request code 


XCTLCODE 


.EQU 


21 




; Invalid control/status code 


XNORESRC 


.EQU 


25 




; resource not available 


XBADOP 


.EQU 


26 




; Invalid operation 


XIOERROR 


.EQU 


27 




; I/O error 


XNODRIVE 


.EQU 


28 




;No drive connected 


XNOWRITE 


.EQU 


2B 




;Device write protected. (not supported) 


XBYTECNT 


.EQU 


2C 




;Byte count <> a multiple of 512 


XBLKNUM 


.EQU 


2D 




; Block number too large 


BADOLDDATA 


.EQU 


27 




; block has bad data from previous read 


SPTBLOVFLW 


.EQU 


27 




; spare table overflow 


; Hardware I/O Addresses 


BANK_REG 


.EQU 


0FFEF 






E_REG 


.EQU 


0FFDF 




; system environment register 


Z_REG 


.EQU 


0FFD0 




; Zero page register for psuedo DMA 


PSUEDO_DMA 


.EQU 


0F800 




;psuedo DMA code in ROM. 


WR_PORT 


.EQU 


0C080 




;Write to Z8 RAM (byte at a time) 


RD_PORT 


.EQU 


0C081 




;Read from Z8 RAM (byte at a time) 


BUSY 


. EQU 


0C082 




;Z8 not ready 


CLR_PARITY 


.EQU 


0C083 




; Clear parity error. 




.PAGE 









Constants 



NOTCMD 

SETCMD 

SETWRT 

SETRD 

INTDSABL 



-EQU 
.EQU 
.EQU 
.EQU 
.EQU 



; Command line Low 
; Command line High 
; Low 
; High 
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000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 



INTENABL 
RWLO 
RWHI 
RST 

CLRRST 



-EQU 
.EQU 
.EQU 
.EQU 
.EQU 



6 
3 
7 

OC 



Command codes 



WDGTRD 
WDGTWRTVER 
WDGTSTAT 
WDGTWRT 



. EQU 
.EQU 
.EQU 
.EQU 



SIR allocation table 



SIRADDR 
SIRTABLE 



SIRBANK 
SIRCOUNT 



.WORD 

.BYTE 

.WORD 

.BYTE 

.EQU 

.PAGE 



SIRTABLE 

10, 





Local variables 



SLOTX 
ERROR 
IERROR 

PREVCMD 

PREVUNIT 

LENGTH 

ORGADR 

ORGBNK 

SLOTCN 

ADDRDMA 

BANKDMA 

TEMP 00 

TEMPFE 

MVCNT 

CNTLO 

CNTHI 

ADMODE 

DATDIR 

Z8CMD 

COUNTR 

MSBLOCK 

BSYLO 

LONGWAIT 

WAITTIME 

PIPPIN_RESET 

STATUS 1 

STATUS2 

STATUS3 

STATUS4 

PARITY_ERR 

RESET_FLAG 

B AD_RE S P ON S E 

CHEKBYTS 



SVENV 
DMA_CNT 



.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.PAGE 



;if = then no error 

;if = then no initialization error 



; number of blocks to read. 



;Most significant block # for Profile 
;FLAG set when driver has seen busy lo 



SOS Call Parameter Locations 



SOS_REQCODE 
SOS_UNIT 

SOS_BUF 
SOS_BYTES 
SOS_BLOCK 
SOS_BYTRD 

SOS_STCODE 
SOS_STLIST 

SOS_XPAGE 



EQU 


oco 




EQU 


0C1 




EQU 


0C2 


;D_READ/D_WRITE SOS 


EQU 


0C4 




EQU 


0C6 




EQU 


0C8 




EQU 


0C2 


;D_STATUS SOS call 


EQU 


0C3 




EQU 


1400 
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000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 



; More 


Zero page 


equates 




ADRLO 


.EQU 


OCA 


; Indirect address to user data 


ADRHI 


. EQU 


ADRLO+1 




SISADR 


.EQU 


SOS_XPAGE+ADRHI 




INDRCN 


.EQU 


occ 


; Indirect to $CN00 device locations 


SISCN 


.EQU 


SOS_XPAGE+INDRCN+l 




TIMOUT 


.EQU 


0CE 




RTRYCNT 


. EQU 


0CF 




RTRYTHRESH 


.EQU 


0D0 




CMD_RTRYCNT 


.EQU 


0D1 




RSPNS 


.EQU 


0D2 




BLK_RTRYCNT 


.EQU 


0D3 




BLOCKLO 


.EQU 


0D4 




BLOCKHI 


.EQU 


0D5 






.PAGE 






; Psuedo DMA 


transfer 


routine. Does bank switching 


first . 


RELCODE 


LDY 


BANK_REG 


;This Code is moved to $18F0 




STX 


BANK_REG 


; so the bank can be switched 




JSR 


PSUEDO_DMA 


; for psuedo DMA transfers to 




STY 


BANK_REG 


; other than driver bank. 




RTS 






CDELEN 


.EQU 


* -RELCODE 






.PAGE 







Profile driver 



Main entry point 



$20 



:kit_ent 

ONEMEG 



.EQU 


* 


LDA 


E_REG 


AND 


#0DF 


STA 


SVENV 


LDA 


SOS REQCODE 


EOR 


#8 


BEQ 


INIT_ENT 


LDA 


DIB_SLOTl 


JSR 


SELC800 


BCC 


$20 


JMP 


NODRV 


LDA 


IERROR 


BEQ 


ONEMEG 


JSR 


SYSERR 


STA 


SLOTCN 


LDA 


#0FF 


STA 


PIPPIN_RESET 


STA 


COUNTR 


LDX 


#CDELEN-1 


LDA 


RELCODE, X 


STA 


INDDMA, X 


DEX 




BPL 


MOVCODE 


LDA 


#0 


STA 


PARITY_ERR 


STA 


B AD_RE S P ON S E 


STA 


RESET_FLAG 


STA 


INDRCN 


STA 


SISCN 


LDA 


SOS_BLOCK 


STA 


BLOCKLO 


LDA 


SOS_BLOCK+l 


STA 


BLOCKHI 


LDX 


SLOTX 


PHP 




SEI 




LDA 


E REG 


ORA 


#83 


STA 


E_REG 


PLP 




LDA 


SLOTCN 


BPL 


GO_INIT 


STA 


INDRCN+1 


STA 


CLR_PARITY,X 


LDY 


BUSY,X 


JSR 


S2M 


TYA 




AND 


#1 


BNE 


NODRV 


TYA 




BPL 


$40 


LDA 


#0FF 


STA 


BSYLO 


BNE 


GO_INIT 



; Save everything but 

; the current screen state 



;did D_INIT encounter error? 



;Move code to page 18 for DMA 
; to other possible banks. 



;slow to lmhz, ROM enable 

; Branch if not initialized . 

; Clear any previous parity errors. 

; set 2MHz mode 
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000275 


S40 


LDA 


BSYLO 


has BSY been low? 


000276 




BNE 


GO_INIT 


branch if so 


000277 




JSR 


RSTORENV 




000278 




LDA 


#XIOERROR 




000279 




JSR 


SYSERR 


otherwise error exit 


000280 










000281 


GO_INIT 


JSR 


DISPATCH 




000282 




JSR 


SETUP WRITE 




000283 




LDA 


#0 




000284 




JSR 


SELC800 




000285 


RSTORENV 


PHP 






000286 




SEI 






000287 




LDA 


E_REG 




000288 




AND 


#20 




000289 




ORA 


SVENV 


restore environment register 


000290 




STA 


E_REG 




000291 




PLP 






000292 




RTS 




and exit to caller 


000293 










000294 


S2M 


PHP 






000295 




SEI 






000296 




LDA 


E_REG 




000297 




AND 


#7F 


and out 1MHz bit 


000298 




STA 


E_REG 




000299 




PLP 






000300 




RTS 






000301 




.PAGE 






000302 


DISPATCH 


SWITCH 


SOS_REQCODE, 9, SW_TABLE 




000303 










000304 


BAD RE Q 


LDA 


#XREQCODE 


Invalid request code 


000305 




JSR 


SYSERR 




000306 










000307 


BADOP 


LDA 


IXBADOP 


Invalid operation 


000308 




JSR 


SYSERR 




000309 










000310 


NODRV 


JSR 


RSTORENV 




000311 




LDA 


#XNODRIVE 


No drive connected (power off} 


000312 


SYS_ERROR 


JSR 


SYSERR 




000313 










000314 










• 








000315 










000316 


SW_TABLE 


.EQU 




Profile driver switch table 


000317 




.WORD 


DREAD-1 


D READ system call 


000318 




.WORD 


DWRITE-1 


D_WRITE " 


000319 




.WORD 


DSTATUS-1 


D_STATUS " 


000320 




.WORD 


FDCONTROL-1 


D_CONTROL " 


000321 




.WORD 


BADREQ-1 


GET_DEV_NUM " 


000322 




.WORD 


BADREQ-1 


D_INFO " 


000323 




.WORD 


BADOP-1 


D_OPEN " 


000324 




.WORD 


BADOP-1 


D_CLOSE " 


000325 




.WORD 


DINIT-1 


D_INIT " 


000326 




.WORD 


DREPEAT-1 


D_REPEAT " 


000327 




.PAGE 






000328 


















000329 


'* 








000330 


; Profile 


driver — initialization request. 




000331 










000332 










• 








000333 










000334 


DINIT 


. EQJ 


* 




000335 




LDA 


DIB_SL0T1 


slot index : -dib . slot *1 6 


000336 




TAX 






000337 




BMI 


DI ERR1 


error, invalid slot # 


000338 




ORA 


#0C0 




000339 




STA 


SLOTCN 


Save slot CN address 


000340 




STA 


INDRCN+1 




000341 




ASL 


A 




000342 




ASL 


A 




000343 




ASL 


A 




000344 




ASL 


A 




000345 




STA 


SLOTX 




000346 




LDA 


#0 




000347 




STA 


INDRCN 




000348 




STA 


SISCN 




000349 




LDA 


DIB_SLOTl 


compute SIR # 


000350 




CLC 






000351 




ADC 


SIRTABLE 


sir : -dib . slot 1 + 16 


000352 




STA 


SIRTABLE 




000353 




LDA 


#SIRCOUNT 


allocate the slot's SIR 


000354 




LDX 


SIRADDR 




000355 




LDY 


SIRADDR+1 




000356 




JSR 


ALLOCSIR 




000357 




BCS 


DI_ERR2 


SIR request failed 


000358 




LDA 


DIB_SLOTl 




000359 




JSR 


SELC800 




000360 




BCS 


DI_ERR1 




000361 




JSR 


SETUP READ 




000362 




LDY 


tINTDSABL 




000363 




LDA 


(INDRCN) , Y 




000364 




JSR 


SETUP WRITE 




000365 




JSR 


SETUP READ 




000366 




CLC 






000367 




RTS 




normal exit 
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DI_ERR2 
DI_ERR3 



S10 
S15 



000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 

000449 S010 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 



LDA 
BNE 
LDA 
STA 
JSR 
.PAGE 



#XNODRIVE 
DI_ERR3 
#XNORESRC 
I ERROR 
SYSERR 



; error, checksum fail/bad slot# 

; error, SIR resource not available 



Profile driver 



status request. 



Status request zero returns BUSY (bit 7), and ONLINE (bit 4). 
Status request one returns device specific flags. 



format 


status code SFE is also 


accepted . 


.EQU 


* 




LDY 


#0 




LDX 


SOS_STCODE 




BNE 


$10 




LDX 


SLOTX 




PHP 






SEI 






LDA 


E_REG 




ORA 


#80 


;or in 1MHz bit 


STA 


E_REG 




PLP 






LDA 


BUSY, X 




EOR 


#80 




ASL 


A 


; Save Busy status bit in carry 


PHP 




; Save carry 


ASL 


A 


;Now shift On-Line to Bit 5. 


ASL 


A 




ASL 


A 




ASL 


A 




AND 


#20 


; Throw away other (garbage) bits 


PLP 




;Get Busy bit again 


ROR 


A 


;And shift it to Bit 7, and On-line to 


STA 


(SOS_STLIST) , Y 




RTS 




; (carry is always cleared from shift) 


DEX 






BNE 


FORMATUS 


; branch not status code 1. 


LDY 


#3 




LDA 


STATUS1, Y 




STA 


(SOS_STLIST) , Y 


;put status bytes in callers buf 


DEY 






BPL 


$15 




CLC 






RTS 






.PAGE 






.EQU 






LDA 


SOS STCODE 


;Test for format request. 


CMP 


#0FE 




BNE 


FCODE 


; error, invalid status code 


LDY 


#0 




LDA 


#0FF 




STA 


(SOS_STLIST) , Y 




INY 






STA 


(SOS_STLIST) , Y 




CLC 






RTS 






LDA 


#XCTLCODE 


; invalid status/control code 


JSR 


SYSERR 




.PAGE 







Profile driver 



control request. 



Control code must be $00 or $FE. The reset request is ignored and 
the Profile is Preformatted, hence both requests are NOPs. 



FDCONTROL 



-EQU 

LDA 

BEQ 

CMP 

BNE 

CLC 

RTS 



SOS_STCODE 
$010 
#0FE 
FCODE 



; fetch control code 

; error, invalid control code 



Profile driver — repeat request. 

Retrieves the previous command and calls DREAD or DWRITE. 
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000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 



$2 
$1 



TSTBLKNUM 



$10 



$20 



-EQU 


* 




LDA 


PREVUNIT 




CMP 


SOS UNIT 




BNE 


$1 


; Error exit if unit # changed 


LDA 


PREVCMD 




STA 


SOS REQCODE 




BNE 


$2 




JMP 


DREAD 




CMP 


#2 




BCS 


$1 


; Error, previous I/O not Read/Write 


JMP 


D WRITE 




JMP 


BAD OP 
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tests 


the validity of block 


number requested. 


LDA 


#0FF 




STA 


MSBLOCK 


; assume status block 


CMP 


BLOCKHI 




CLC 






BNE 


$10 




LDA 


BLOCKLO 




CMP 


#0FE 


; RAM or status block? 


BCC 


$10 


; branch if not 


CLC 






RTS 




;OK exit 


INC 


MSBLOCK 




LDA 


BLOCKLO 


;Make sure Block number is 


CMP 


DIB_BLOCKl 


; within widget ' s range . 


LDA 


BLOCKHI 




SBC 


DIB_BLOCKl+l 


;If carry clear then within range. 


RTS 






.PAGE 







Getbytes subroutine. Moves SOS bytes parameter to length variable. 
If bytes are not a multiple of 512, or a block # > maxblock will be 
written or read, then XBYTECNT error exit will be done. If the first 
block to be read > MAXBLOCK-1, an XBLKNUM error exit will be done. 



$01 



$05 



$10 



-EQU 
JSR 

BCC 
PLA 
PLA 
LDA 
JSR 
LDA 
BNE 
LDA 
LSR 
BCS 
STA 
BNE 
PLA 
PLA 
RTS 
LDX 
LDY 
SEC 
SBC 
CLC 
ADC 
STA 
LDA 
ADC 
BCS 
STA 
JSR 
STX 
STY 
BCC 

PLA 
PLA 
LDA 
JSR 



TYA 
STA 
EOR 
STA 
TXA 
STA 
EOR 
STA 



TSTBLKNUM ; check validity of 1st block to be 

written or read 
$01 ; branch if OK 



#XBLKNUM 
SYSERR 
SOS_BYTES 
$10 

SOS_BYTES+l 
A 

$10 

LENGTH 
$05 



BLOCKHI 
BLOCKLO 



BLOCKLO 

BLOCKLO 

BLOCKHI 

#0 

$10 

BLOCKHI 

TSTBLKNUM 

BLOCKHI 

BLOCKLO 

CALCHEK 



♦XBYTECNT 
SYSERR 



CHEKBYTS+2 
#0FF 

CHEKBYTS+5 

CHEKBYTS+1 
#0FF 

CHEKBYTS+4 



;bad block number error 



; compute last block to be wrtn or rd 
;is it valid? 



; branch if GOOD! 



;byte count not multiple of 512 
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000554 






LDA 


#0 




000555 






STA 


CHEKBYTS 




000556 






LDA 


#0FF 




000557 






STA 


CHEKBYTS+3 




000558 






RTS 






000559 
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000560 






















000561 












000562 




Profile 


driver — read request. 




000563 












000564 




Transfers "bytes/512" 


blocks from disk to buffer.. 


buf f er+bytes-1 . 


000565 












000566 






















000567 












000568 


DREAD 


.EQU 


* 




000569 






LDA 


#0 




000570 






TAY 






000571 






STA 


(SOS_BYTRD) , Y 




000572 






INY 






000573 






STA 


(SOS_BYTRD) , Y 




000574 






LDA 


SOS_UNIT 




000575 






STA 


PREVUNIT 


; save current sos unit 


000576 






LDA 


SOS_REQCODE 


; save current command 


000577 






STA 


PREVCMD 




000578 






JSR 


GETBYTES 


;move bytes parm to length var. 


000579 






JSR 


ARB ADR 


; Get beginning address resolved. 


000580 


RDBLOCK 


LDA 


#2 


; Allow 2 retries 


000581 






STA 


BLK_RTRYCNT 




000582 


RPAR_RETRY 


.EQU 


* 


; Parity error retries enter here 


000583 






LDA 


#0 


; Indicate data direction is 


000584 






STA 


DATDIR 


; read. 


000585 






STA 


CMD_RTRYCNT 


; clear # communication tries 


000586 






LDA 


#0A 


; set retry count to 10 


000587 






STA 


RTRYCNT 




000588 






LDA 


#3 




000589 






STA 


RTRYTHRESH 


; set reseek/rewrite threshold 


000590 






JSR 


TSTBLKNUM 


;make sure it's a valid block 


000591 






BCC 


RCOM_RETRY 




000592 






LDA 


♦XBLKNUM 




000593 






JSR 


SYSERR 


; invalid block error exit 


000594 


RCOM_RETRY 


.EQU 


* 


; CMD-BSY bad response retries enter 


000595 






LDA 


#0 




000596 






STA 


LONGWAIT 




000597 






LDA 


#WDGTRD 




000598 






STA 


Z8CMD 




000599 






LDA 


#1 




000600 






STA 


RSPNS 


; set up expected Z8 response 


000601 






JSR 


SNDCMD 


; do a CMD-BSY handshake 


000602 






BCC 


$70 




000603 






JMP 


DR_ERR1 




000604 


S70 


BNE 


RCOM_RETRY 


;bad response - try again. 


000605 












000606 






Send command bytes 




000607 












000608 






JSR 


SND_CMDBYTES 




000609 






BCS 


RD RETRY 


;try again if parity error 


000610 






LDA 


#2 




000611 






STA 


RSPNS 


; set up for execution 


000612 






LDA 


#0FF 




000613 






STA 


LONGWAIT 


; adjust timeout wait 


000614 






JSR 


SNDCMD 


;2nd CMD-BSY for read opn 


000615 






BCS 


DR_ERR1 


; timeout on cmd-bsy 


000616 






BNE 


RCOM_RETRY 


;bad response - try again. 


000617 












000618 






read should be complete at this point 




000619 












000620 






JSR 


GETSTAT 


;get status bytes first 


000621 






BCS 


RD RETRY 


;try again if parity error 


000622 






BPL 


$10 




000623 






INC 


COUNTR 


;time to reset PIPPIN? 


000624 






BEQ 


RCOM_RETRY 


; branch if not 


000625 






BNE 


DR_ERR1 


; reset PIPPIN 


000626 


$10 


JSR 


DATRANS 




000627 






BCS 


RDRETRY 




000628 






LDA 


STATUS1 


;Now check status for good read 


000629 






AND 


#1 




000630 






BNE 


LDAXIO 




000631 






LDA 


STATUS2 




000632 






AND 


#58 




000633 






BNE 


LDAXIO 




000634 






LDA 


#2 




000635 






LDY 


#1 




000636 






ADC 


(SOS_BYTRD) , Y 




000637 






STA 


(SOS_BYTRD) , Y 




000638 






JSR 


TSTMORE 


;more blocks to read? 


000639 






BEQ 


GOODEXIT 




000640 






JMP 


RDBLOCK 


; jump if more 


000641 












000642 


RD RETRY 


JSR 


RSTORADR 


; restore 'ORGADR' and try again 


000643 






DEC 


BLK_RTRYCNT 


; can we retry? 


000644 






BMI 


DR_ERR1 




000645 






JMP 


RPAR_RETRY 




000646 
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000647 


DR_ERR1 


INC 


PIPPIN_RESET 




000648 




BNE 


$10 




000649 




JSR 


RESET_PIPPIN 




000650 




LDA 


#0 




000651 




STA 


CMD_RTRYCNT 




000652 




JMP 


RCOM_RETRY 




000653 


S10 


JSR 


NOTCMDLN 




000654 


LDAXIO 


LDA 


IXIOERROR 




000655 




BNE 


BADEXIT 




000656 










000657 


TSTMORE 


INC 


BLOCKLO 


; Bump the block number 


000658 




BNE 


$010 




000659 




INC 


BLOCKHI 




000660 


soio 


LDY 


BLOCKLO 




000661 




LDX 


BLOCKHI 




000662 




JSR 


CALCHEK 




000663 




LDA 


ADRHI 




000664 




STA 


ORGADR+1 




000665 




LDA 


SISADR 




000666 




STA 


ORGBNK 




000667 




DEC 


LENGTH 


;Are there more blocks to read? 


000668 




RTS 




; Return Z flag set if done. 


000669 










000670 


GOODEXIT 


LDA 


#01 




000671 




STA 


RSPNS 


; DUMMY HANDSHAKE FOR PROFILE TO UPDATE 


000672 




JSR 


SNDCMD 


; ANY PENDING INFO TO DISK. 


000673 




LDA 


#0FF 




000674 




STA 


Z8CMD 


;we're going to send an invalid command 


000675 




JSR 


SND_CMDB YTE S 




000676 




JSR 


SETCMDLN 


; raise the CMD line 


000677 




JSR 


SETCMDLN 


; give Profile a little time 


000678 




JSR 


NTCMDLN1 


; lower the CMD line (so the ready light 


000679 






doesn 1 t 


go out) 


000680 




RTS 






000681 










000682 


BADEXIT 


PHA 






000683 




JSR 


GOODEXIT 




000684 




PLA 






000685 




JSR 


SYSERR 




000686 










000687 


RSTORADR 


LDA 


ORGADR 


; Reset addresses 


000688 




STA 


SOS_BUF 




000689 




LDA 


ORGADR+1 




000690 




STA 


SOS_BUF+l 




000691 




LDA 


ORGBNK 




000692 




STA 


SOS_XPAGE+SOS_BUF+l 




000693 




JMP 


ARB ADR 





#################################################################################################### 

# END OF FILE: PROFILE .A. TEXT 

# LINES : 693 

# CHARACTERS : 3388 6 

# Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

# Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 
#################################################################################################### 



V Apple /// ProFile Hard Disk Driver 1.30 Source Code Listing 



11 / 37 




; #################################################################################################### 

; # PROJECT : Apple /// SOS Profile Driver 1.30 (6502 Assembly Source Code) 

; # FILE NAME: PROFILE . B . TEXT 

; #################################################################################################### 

000001 ; 

000002 ; 

000003 ; Profile driver — write request. 

000004 ; 

000005 ; Transfers "bytes/512" blocks from buffer to block. .blockt (bytes/512) . 

000006 ; Error status on return from subroutines is the same as for DREAD. 

000007 ; 

000008 ; 

000009 



000010 


DWRITE 


.EQU 


* 




000011 




LDA 


SOS_REQCODE 


; save current command 


000012 




STA 


PREVCMD 




000013 




LDA 


SOS_UNIT 




000014 




STA 


PREVUNIT 




000015 




JSR 


GETBYTES 


;move bytes parm to length var. 


000016 




JSR 


ARB ADR 


;Get beginning address resolved. 


000017 




LDA 


#0FF 


; Indicate data direction is Write 


000018 




STA 


DATDIR 




000019 










000020 


WRBLOCK 


LDA 


#2 




000021 




STA 


BLK_RTRYCNT 




000022 










000023 


WPAR_RETRY 


LDA 


#0 


; parity error retries enter here 


000024 




STA 


CMD_RTRYCNT 


; init cmd-bsy retry variable 


000025 




STA 


RTRYCNT 


; and read retry and threshold 


000026 




STA 


RTRYTHRESH 


; variables to for write opn 


000027 




JSR 


TSTBLKNUM 


; check for valid block# 


000028 




BCC 


WCOM_RETRY 




000029 




JMP 


DW_ERR2 




000030 










000031 


;CMD-BSY retries enter here 






000032 










000033 


WCOM_RETRY 


LDA 


#WDGTWRT 




000034 




LDY 


WRTVER 




000035 




BEQ 


$10 




000036 




LDA 


#WDGTWRTVER 




000037 


sio 


STA 


Z8CMD 




000038 




LDA 


#1 




000039 




STA 


RSPNS 


; set up expected response 


000040 




JSR 


SNDCMD 


;lst cmd-bsy handshake 


000041 




BCS 


DW_ERR1 


; cmd-bsy timeout error 


000042 




BNE 


WCOM_RETRY 


; wrong response - try again 


000043 




JSR 


SND CMDBYTES 


; send write command string 


000044 




BCS 


$12 


; retry if parity error 


000045 










000046 


;Now set up to 


send write data to widget 




000047 










000048 




LDA 


Z8CMD 




000049 




ADC 


#2 




000050 




STA 


RSPNS 


; set up expected response 


000051 




JSR 


SNDCMD 


;2nd cmd-bsy handshake 


000052 




BCS 


DW_ERR1 


; timeout on cmd-bsy 


000053 




BNE 


WCOM_RETRY 


; retry the handshake if taken 


000054 




JSR 


DATRANS 


;now transfer data to widget 


000055 




BCC 


$15 




000056 


$12 


JMP 


WRRETRY 


; retry on parity error 


000057 










000058 


; now get status 


from write - 


3rd cmd-bsy handshake 




000059 










000060 


$15 


LDA 


#6 




000061 




STA 


RSPNS 


; set up expected response 


000062 




LDA 


WRTVER 




000063 




BEQ 


$20 


;branch if not write/verify 


000064 




LDA 


#0FF 




000065 




STA 


LONGWAIT 


; adjust timeout value 


000066 


$20 


JSR 


SNDCMD 




000067 




BCS 


DW_ERR1 


; timeout error - cmd-bsy 


000068 




BEQ 


WCONT 


; continue if good return status 


000069 




JSR 


RSTORADR 


; restore 'ORGADR' since already 


000070 


; wrote bytes to 


z8 






000071 




JMP 


WCOM_RETRY 


; and retry communication 


000072 










000073 


DW_ERR1 


INC 


PIPPIN RESET 




000074 




BNE 


$10 




000075 




JSR 


RESET PIPPIN 




000076 




LDA 


#0 




000077 




STA 


CMD_RTRYCNT 




000078 




JMP 


WCOM_RETRY 




000079 


$10 


JSR 


NOTCMDLN 




000080 


LDAXIOERR 


LDA 


tXIOERROR 




000081 


CSYSER1 


JMP 


BADEXIT 




000082 










000083 


DW_ERR2 


LDA 


tXBLKNUM 




000084 




BNE 


CSYSER1 




000085 










000086 










000087 










000088 


WCONT 


JSR 


GETSTAT 
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000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 



$10 



DW_EXIT 
WRRETRY 



BCS 


WRRETRY 


; parity error - try again 


BPL 


$10 




INC 


COUNTR 


;time to reset PIPPIN? 


BEQ 


WRRETRY 


; branch if not 


BNE 


DW_ERR1 




AND 


#41 




BNE 


LDAXIOERR 




LDA 


STATUS2 




AND 


#48 




BNE 


LDAXIOERR 


;if pippin couldnt read its status 


JSR 


TSTMORE 


;more to write? 


BEQ 


DW_EXIT 




JMP 


WRBLOCK 




JMP 


GOODEXIT 




JSR 


RSTORADR 


; restore 'ORGADR' and try again 


DEC 


BLK_RTRYCNT 


; can we retry? 


BMI 


DW_ERR1 




JMP 


WPAR_RETRY 




.PAGE 







Profile Block I/O transfer routine. This routine will transfer 512 
bytes to/from users buffer from/to RAM buffer of Profile's Z8. It 
uses both byte at a time and psuedo DMA as necessary for the fastest 
possible transfer rate. If users buffer is on a page boundary, only 
the psuedo DMA is used. 

Because of the requirements of the psuedo DMA, a small routine is 
relocated to page $18 to swap banks before transfer. This is done 
only once per call to the driver. 

NOTE: this routine is designed to transfer no less than 512 bytes. 



000124 


DATRANS 


PHP 






000125 




SEI 






000126 




LDA 


#2 


; Always move 512 bytes at a time 


000127 




STA 


CNTHI 




000128 




LDA 


#0 




000129 




STA 


CNTLO 




000130 




BIT 


DATDIR 


; Write or read? 


000131 




BMI 


$010 


; Branch if write 


000132 




JSR 


SETUP READ 




000133 




JMP 


$020 


; Branch always taken. 


000134 










000135 


$010 


JSR 


SETUP WRITE 




000136 


$020 


LDA 


E REG 




000137 




AND 


#7F 


; and out 1MHz bit 


000138 




STA 


E_REG 




000139 




PLP 






000140 




LDA 


ADRLO 


;Is transfer on page boundary? 


000141 




BEQ 


DATADMA 


;Yes, Do it fast! ! 


000142 




CMP 


#0F5 


; Should we bother with DMA? 


000143 




BCC 


$030 


; Branch if DMA will be faster. 


000144 




EOR 


#0FF 


; Set up for move count 


000145 




JSR 


MOVIT 




000146 




JMP 


FASTMOV 


; Done with first (partial) page. 


000147 


$030 


AND 


#1 


;Is it a 2 byte boundary? 


000148 




BEQ 


$040 


;Yes, move first partial page. 


000149 




LDA 


#0 


; Otherwise move a byte 


000150 




STA 


MVCNT 




000151 




JSR 


MOVE 


; to get things aligned. 


000152 


$040 


LDA 


ADRLO 




000153 


DATADMA 


TAX 






000154 




CLC 




; Round up to next 2 byte boundary 


000155 




ADC 


#1 




000156 




AND 


#0FE 




000157 




STA 


VECTLO 


; Store as low ROM entry point. 


000158 




TXA 






000159 




EOR 


#0FF 




000160 




STA 


MVCNT 


; Save number of bytes (-1) moved. 


000161 




STA 


DMA_CNT 


; (Guaranteed to be enough for DMA to 


000162 




JSR 


GO_DMA 


; the end of a page) 


000163 




JSR 


ADJ_ADR 


; Update address and count 


000164 




LDA 


CNTHI 




000165 




BEQ 


LAST PGE 


; Branch if less than 1 page to move. 


000166 


FASTMOV 


LDA 


#0 




000167 




BEQ 


DATADMA 


; Branch ALWAYS to move next page. 


000168 




.PAGE 






000169 


TRANSDNE 


LDY 


#0 




000170 




LDX 


SLOTX 




000171 




PHP 






000172 




SEI 






000173 




LDA 


E REG 




000174 




ORA 


#80 


;or in 1MHz bit 


000175 




STA 


E_REG 




000176 




PLP 






000177 




BIT 


DATDIR 




000178 




BPL 


$300 




000179 


$100 


LDA 


CHEKBYTS, Y 




000180 




STA 


WR_PORT,X 




000181 




INY 
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000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 



S300 
$999 



$20 



$30 



$50 



$60 
$70 



CPY 


#6 




BNE 


$100 




JSR 


CHKPARITY 


;Test for parity error in transfer. 


PHP 






SEI 






JSR 


SETUPREAD 


; restore read state 


JSR 


S2M 


;back to 2 MHz 


PLP 






RTS 






LDA 


CNTLO 


; Anything left to move? 


BEQ 


TRANSDNE 


; Branch if not . 


SEC 






SBC 


#1 


;Note: low buffer address is always 0. 


CMP 


#20 


;Is there more than 32 bytes left? 


BCS 


$20 


;If not, move last a byte at a time. 


JSR 


MOV IT 




JMP 


TRANSDNE 




PHA 






LDA 


#1 


;Move first 2 bytes to preserve byte 0. 


STA 


MVCNT 




JSR 


MOVE 


;The call to AD J_ADR is below. 


LDY 


#0 


; Bytes and FE of the current page 


PHP 






SEI 




; disallow interupts 


LDA 


(ADRLO) , Y 


; must be preserved because of the 


STA 


TEMP 00 


; quirks of the psuedo DMA while doing 


LDY 


#0FE 


; a partial page transfers. Since the 


LDA 


(ADRLO) , Y 


; branch instuction generates a false 


STA 


TEMPFE 


; address within the DMA page, byte 


PLA 




; is accessed if more than $80 bytes 


TAX 




; (save status) 


PLA 






AND 


#0FC 


; are transfered and byte FE is ac- 


CMP 


#84 


; cessed if less than $80. 


BNE 


$30 




SBC 


#04 


;Transfers of exactly $80 (82) are not 


TAY 




; allowed do to DMA code (see Apple 3 


LSR 


A 


; monitor listing of psuedo DMA code) 


LSR 


A 




SBC 


#1 




STA 


DMA_CNT 


; Set up for exit of DMA 


TXA 






PHA 




; restore status to stack 


TYA 






SEC 






SBC 


#3 




STA 


MVCNT 


; Save bytes total bytes transferred. 


TAY 






LDA 


#02 


; Set low entry point for DMA routine. 


STA 


VECTLO 




BIT 


DATDIR 


;Read or write? 


BPL 


$50 


;Branch if read. 


LDA 


(ADRLO) , Y 


;Get last byte and move to both 


LDY 


#0 


; byte and FE . 


STA 


(ADRLO) , Y 




LDY 


#0FE 




STA 


(ADRLO) , Y 




JSR 


GO_DMA 


;Now transfer the partial page. 


BIT 


DATDIR 


;Was it read or write? 


BMI 


$70 


; Branch if write. 


LDY 


#0 




BIT 


MVCNT 


;Now figer out where the last byte 


BMI 


$60 


; got red. 


LDY 


#0FE 


;Must have been Read into FE. 


LDA 


(ADRLO) , Y 




LDY 


MVCNT 


; Put it where it belongs ! 


STA 


(ADRLO) , Y 




LDY 


#0 


;Now restore bytes s FE. 


LDA 


TEMP 00 




STA 


(ADRLO) , Y 




LDY 


#0FE 




LDA 


TEMPFE 






/ a npT r\\ V 




PLP 




; Interupts OK now. 


JSR 


AD J_ADR 


;Go fix addresses and count. 


JMP 


LAST_PGE 




STA 


MVCNT 


; Number of bytes for transfer. 


JSR 


MOVE 


;Do byte at a time. 


.PAGE 






adjusts the 


count and addresses 


(indirect and bank 



direct) after each transfer, either byte at a time or psuedo DMA. 

Input is MVCNT. Only the processor status and accumulator are used. 
7ADRLO, ADRHI, ADDRDMA, BANKDMA are all assumed to be valid, thus a 
call to ARBADR should have taken place before this routine is used. 
CNTLO, CNTHI should never be less than MVCNT, as no checking is done. 
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000275 



000276 


AD J_ADR CLC 












000277 




LDA 


CNTLO 








; Adjust count and Addresses 


000278 




SBC 


MVCNT 








; Subtract (MVCNT+1) from count 


000279 




STA 


CNTLO 








and add (MVCNT+1) to address. 


000280 




LDA 


CNTHI 










000281 




SBC 


#0 










000282 




STA 


CNTHI 










000283 




LDA 


ADRLO 










000284 




ADC 


MVCNT 








; (carry was set) 


000285 




STA 


ADRLO 










000286 




LDA 


ADRHI 










000287 




ADC 


#0 










000288 




STA 


ADRHI 










000289 




BIT 


ADMODE 








;Are Bank Wraps possible? 


000290 




BPL 


ADJ_DNE 








; Branch if not. 


000291 




CMP 


#081 








;Time to Adjust for Wrap? 


000292 




BCC 


ADJ_BNK 








; Branch if not. 


000293 




AND 


#07F 








; Otherwise strip hi bit, add 1 to 


000294 




INC 


SISADR 








; bank pair selected indirect 


000295 


AD J_BNK STA 


ADRHI 










000296 




LDA 


SISADR 










000297 




STA 


BANKDMA 










000298 




LDA 


ADRHI 










000299 




CLC 












000300 




ADC 


#20 








;Add $20 for bank address eguiv. 


000301 




CMP 


#OA0 








;Next bank? 


000302 




BCC 


AD J DNE 








; Branch if not. 


000303 




AND 


#07F 








; Address range must be within 20-9F 


000304 




INC 


BANKDMA 










000305 


AD J_DNE STA 


ADDRDMA 








; Save absolute address for DMA 


000306 




RTS 












000307 




.PAGE 












000308 






























000309 
















000310 




The move routines read or 


write data byte 


at 


a time 


Input varibles 


000311 




are ADRLO, ADRHI and MVCNT, none of 


which 


are 


modified (that is done 


000312 




by ADJADR) . All registers are used 


Also 


SLOTX must contain the 


000313 




slot number times 16 for 


indexing the device 


locations for read and 


000314 




write. DATDIR indicates 


the direction (Read= 


0, Write=FF) of transfer. 


000315 
















000316 






























000317 
















000318 


MOVE PHP 












000319 




SEI 












000320 




LDX 


SLOTX 








;Get index to device locations. 


000321 




LDY 


#0 










000322 




LDA 


E REG 










000323 




ORA 


#80 








;or in 1 MHz bit 


000324 




STA 


E_REG 










000325 




BIT 


DATDIR 








;Read or write? 


000326 




BPL 


MOVIN 








; Branch if read. 


000327 
















000328 


MOVOUT LDA 


(ADRLO) , Y 








;Move data to Z8 RAM 


000329 




STA 


WR_PORT,X 










000330 




CPY 


MVCNT 








;Done with Write? 


000331 




BEQ 


MVDONE 








; Branch if done. 


000332 




INY 












000333 




BNE 


MOVOUT 








; Branch always taken. 


000334 
















000335 


MOVIN LDA 


RD_PORT,X 








;Get data from Z8 RAM 


000336 




STA 


(ADRLO) , Y 










000337 




CPY 


MVCNT 










000338 




BEQ 


MVDONE 










000339 




INY 












000340 




BNE 


MOVIN 








; Branch always . 


000341 
















000342 


MVDONE JSR 


S2M 








;back to 2 MHz 


000343 




PLP 












000344 




RTS 












000345 




.PAGE 












000346 






























000347 
















000348 




This routine arbitrates the initial 


user 1 s 


address 


in terms of both 


000349 




indirect and absolute bank address. 


It sets 


the initial states for 


000350 




ADRLO, ADRHI, ADDRDMA, BANKDMA, and 


ADMODE 




ADMODE 


' s bit 7 is set 


000351 




if extented addressing is 


used, otherwise 


it 


is reset (0) . ADDRDMA 


000352 




is the page address resulting within the 6502 


address space, the 


000353 




low address is always the 


same as ADRLO. 








000354 
















000355 






























000356 
















000357 


ARB ADR LDA 


SOS_BUF 








;Get strait indirect address moved 


000358 




STA 


ADRLO 










000359 




STA 


ORG ADR 










000360 




LDA 


SOS_BUF+l 










000361 




STA 


ADRHI 










000362 




STA 


ORGADR+1 










000363 




STA 


ADDRDMA 










000364 




LDA 


SOS_XPAGE+SOS_BUF+l 






000365 




STA 


SISADR 










000366 




STA 


ORGBNK 










000367 




STA 


ADMODE 
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000368 


BPL 




NOBANK 




; Branch if load into current bank. 


000369 


AND 




#0F 






000370 


STA 




BANKDMA 






000371 


EOR 




#0F 




;Now test for special bank (F) 


000372 


BEQ 




BANKO 






000373 


LDA 




SOS_BUF+l 






000374 


BPL 




$010 






000375 


AND 




#7F 




; Subtract $80 from high byte 


000376 


INC 




BANKDMA 




; and increment bank number 


000377 S010 CLC 










000378 


ADC 




#20 




; Convert to absolute address 


000379 


STA 




ADDRDMA 






000380 


RTS 










000381 












000382 NOBANK LDA 




BANK REG 




;Use current bank as bank select 


000383 


AND 




#0F 




; for DMA purposes . 


000384 BANKO STA 




BANKDMA 






000385 


STA 




ADMODE 




; Clear bit 7 of mode to indicate no 


000386 


RTS 








; bank wrapping required. 


000387 


.PAGE 










000388 






















000389 












000390 


In order to perform psuedo DMA, the call to 


ROM 


must be outside the 


000391 


Bank. This routine 


sets 


up the Z_REG and loads 


the X register with 


000392 


the bank desired before calling DO_DMA which 


has 


been relocated to 


000393 


page 2. It also disables 


interupts for the 


duration (up to 256 usee) 


000394 


of the transfer. 










000395 












000396 






















000397 












000398 GO_DMA PHP 








; Save interupt status 


000399 


SEI 








;No interupts for now. 


000400 


LDA 




E_REG 




;And no NMI ' s either!!! 


000401 


PHA 










000402 


AND 




#24 




; Switch out I/O also. 


000403 


ORA 




#8B 




;And write protect upper 16K! 


000404 


STA 




E_REG 






000405 


LDA 




ADDRDMA 




;Set Z_REG to DMA page address 


000406 


STA 




Z_REG 






000407 


LDX 




BANKDMA 






000408 


LDA 




DMA_CNT 






000409 


SEC 










000410 


JSR 




DO_DMA 






000411 


PLA 








; Restore NMI state. 


000412 


STA 




E_REG 






000413 


LDA 




#SOS_ZPAGE 




; Restore proper zero page. 


000414 


STA 




Z_REG 






000415 


PLP 








; Restore interupts 


000416 


RTS 










000417 


.PAGE 










000418 






















000419 












000420 


The following are routines for handling the 


communications protocol 


000421 


of sending commands 


, and 


receiving result codes. 




000422 












000423 






















000424 












000425 


SNDCMD performs a CMD-BSY 


handshake with the 


Z8 


and checks for a 


000426 


correct response. 


If the 


Z8 responds with an incorrect code, a 


000427 


'no go' code is sent by the Apple and the handshake is retried 


000428 


up to 2 times. On 


return 


, Carry-1 means a handshake timeout or 


000429 


three retries attempted. 


A non-zero return 


means an incorrect 


000430 


response from the Z 


8 that 


may be retried. 






000431 












000432 






















000433 












000434 SNDCMD PHP 










000435 


SEI 










000436 


LDA 




E REG 






000437 


ORA 




#80 




;or in 1 MHz bit 


000438 


STA 




E_REG 






000439 


PLP 










000440 


JSR 




WAITBSYLO 






000441 


BCS 




SENDERR 




; error exit if BSY isn't low 


000442 


JSR 




SETCMDLN 




; raise cmd 


000443 


JSR 




WAITBSYHI 




;wait for bsy to go hi 


000444 


BCS 




SENDERR 




; timeout 


000445 


LDY 




RD_PORT,X 




; read response byte from Z8 


000446 


CPY 




RSPNS 




; correct? 


000447 


BEQ 




CONT 




;yes if taken 


000448 


LDA 




#2 






000449 


STA 




B AD_RE S P ON S E 






000450 


ORA 




STATUS3 






000451 


STA 




STATUS3 






000452 


LDA 




#0AA 




;tell Z8 that response not OK 


000453 


JSR 




BSYACK 




;drop cmd, wait for bsy to go lo 


000454 


BCS 




SENDERR 




; timeout on bsy going lo 


000455 


INC 




CMD_RTRYCNT 




;bump retry count for bad response 


000456 


LDY 




CMD RTRYCNT 






000457 


CPY 




#2 




; 2 retries yet? 


000458 


BCS 




SENDERR 




;yes if taken 


000459 


RTS 










000460 
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000461 


CONT LDA 




#055 




; indicate good response 


000462 




JSR 




BSYACK 






000463 




BCS 




SENDERR 




;bsy timeout 


000464 




LDA 




#0 




; indicate good return to caller 


000465 


SENDERR RTS 










000466 














000467 


WAITBSYHI LDY 




#0 




; set .5sec timeout 


000468 




STY 




TIMOUT 






000469 




CLC 










000470 




LDX 




SLOTX 






000471 


ALOOP LDA 




BUSY, X 






000472 




BPL 




BSYHIRET 




; done if taken 


000473 




DEY 










000474 




BNE 




ALOOP 






000475 




DEC 




TIMOUT 






000476 




BNE 




ALOOP 






000477 




SEC 








; timeout 


000478 


BSYHIRET RTS 










000479 














000480 


WAITBSYLO LDY 




#1 






000481 




LDA 




LONGWAIT 






000482 




BEQ 




$10 






000483 




LDY 




#10 




; set up for 8 second wait max. 


000484 


S10 STY 




WAITTIME 






000485 




LDY 




#0 




; set .5sec timeout 


000486 




STY 




TIMOUT 






000487 




CLC 










000488 




LDX 




SLOTX 






000489 


BLOOP LDA 




BUSY, X 






000490 




BMI 




BSYLORET 




; done if taken 


000491 




DEY 










000492 




BNE 




BLOOP 






000493 




DEC 




TIMOUT 






000494 




BNE 




BLOOP 






000495 




DEC 




WAITTIME 






000496 




BNE 




BLOOP 






000497 




SEC 








; timeout 


000498 


BSYLORET RTS 










000499 














000500 


























000501 














000502 




SND_CMDBYTES sends 


the 


command string to 


widget . 




000503 




Enter with cmd-bsy- 


lo . 


Error return if 


get parity 


error - Carry = 1 


000504 














000505 


























000506 














000507 


SND_CMDBYTES JSR 




SETUP WRITE 




;get in proper state 


000508 




LDA 




Z8CMD 




; send command string - cmd, blockhi 


000509 




STA 




WR_PORT, X 




;blocklo, retries, retry threshold 


000510 




LDA 




MSBLOCK 






000511 




STA 




WR_PORT, X 






000512 




LDA 




BLOCKHI 






000513 




STA 




WR_PORT, X 






000514 




LDA 




BLOCKLO 






000515 




STA 




WR_PORT, X 






000516 




LDA 




RTRYCNT 






000517 




STA 




WR_PORT,X 






000518 




LDA 




RTRYTHRESH 






000519 




STA 




WR_PORT,X 






000520 




JSR 




SETUP READ 




; finish writing last byte and 


000521 




JSR 




CHKPARITY 




; check for parity error 


000522 




RTS 










000523 




.PAGE 










000524 


























000525 














000526 




GETSTAT retrieves the 


status bytes from widget. The 


one-byte 


000527 




result code is returned 


in Y. 






000528 














000529 


























000530 














000531 


GETSTAT LDX 




SLOTX 




; get slot # 


000532 




PHP 










000533 




SEI 










000534 




LDA 




E REG 






000535 




ORA 




#80 




;or in 1 MHz bit 


000536 




STA 




E_REG 






000537 




PLP 










000538 




LDA 




RD_PORT,X 






000539 




STA 




STATUS1 






000540 




LDA 




RD_PORT,X 






000541 




STA 




STATUS2 






000542 




LDA 




RD_PORT,X 






000543 




PHA 










000544 




LDA 




RD_PORT,X 






000545 




STA 




STATUS4 






000546 




JSR 




CHKPARITY 






000547 




PLA 










000548 




ORA 




PARITY_ERR 






000549 




ORA 




BAD_RE S P ON S E 






000550 




ORA 




RESET_FLAG 






000551 




STA 




STATUS3 






000552 




LDA 




STATUS1 






000553 




RTS 
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000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 
000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
000611 
000612 
000613 
000614 
000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000628 
000629 
000630 
000631 
000632 
000633 
000634 
000635 
000636 
000637 
000638 
000639 
000640 
000641 
000642 
000643 
000644 
000645 
000646 



CHKPARITY checks the parity error line and shifts it into Carry, so 
Carry = 1 is a parity error on return to caller. 



CHKPARITY 


LDX 


SLOTX 






LDA 


BUSY,X 


;get parity error - on bit 6 




STA 


CLR_PARITY,X 


; clear it for next transfer 




ASL 


A 






ASL 


A 


; shift it into carry 




BCC 


$10 






LDA 


#1 






STA 


PARITY_ERR 






ORA 


STATUS3 






STA 


STATUS3 




S10 


JMP 


S2M 


; exit via setting 2 MHz mode 




.PAGE 






SETUPWRITE 


sets CRW and 


DATRW lo on the Apple /// 


interface board 


; to prepare 


for a write 


operation to widget 




SETUPWRITE 


LDY 


#SETWRT 






PHP 








SEI 








LDA 


E_REG 






ORA 


#80 


;or in 1 MHz bit 




STA 


E_REG 






PLP 








LDA 


( INDRCN) , Y 


; set crw lo 


SET_WRITEDIR 


LDY 


#RWLO 






LDA 


(INDRCN) , Y 


; set datarw lo 




RTS 






SETUP READ 


LDY 


#SETRD 






PHP 








SEI 








LDA 


E REG 






ORA 


#80 


;or in 1MHz bit 




STA 


E_REG 






PLP 








LDA 


(INDRCN) , Y 


; set crw hi 




LDY 


#RWHI 






LDA 


(INDRCN) , Y 


; set datarw hi 




RTS 








.PAGE 







BSYACK completes the cmd-bsy handshake by outputting the response 
byte to widget, dropping cmd, and waiting for bsy to go lo. 
Enter with the widget response (S55 or SAA) in A. 



STA 
JSR 
JSR 
JSR 
JSR 
JMP 



WR_PORT,X 

SET_WRITEDIR 

NTCMDLN1 

WAITBSYLO 

SETUP READ 

S2M 



; store response byte 

; enable bus out to widget 

; drop cmd 

; restore read state 

; exit via setting 2 MHz mode 



NOTCMDLN 
NTCMDLN1 



JSR 
LDY 
LDA 
RTS 



SETUP READ 
#NOTCMD 
(INDRCN) , Y 



JSR 
LDY 
LDA 
RTS 



SETUPREAD 
#SETCMD 
(INDRCN) , Y 



RESET_PIPPIN 



$10 



LDA 
STA 
ORA 
STA 
LDY 
PHP 
SEI 
LDA 
ORA 
STA 
PLP 
LDA 
LDY 
DEY 
BNE 



#4 

RESET_FLAG 
STATUS3 
STATUS3 
#RST 



E_REG 

#80 

E_REG 

(INDRCN) , Y 
#25 



;or in 1 MHz bit 



$10 
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000647 LDY #CLRRST 

000648 LDA ( INDRCN) , Y ; clear reset 

000649 JMP S2M ; exit via setting 2 MHz mode 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



PROFILE. B. TEXT 
649 
35175 

Assembly Language Reformatter 1.0.2 (07 January 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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TLA ASSEMBLER LISTING (NOT FORMATTED) 
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5 

b 

3 
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5 
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b 

3 
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5 

3 

5 

D 

b 
5 
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3 
3 
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5 

b 
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2 





memory available: 25612 
. NOMACROL 1ST 
. NOPATCHLIST 

.TITLE " SOS Profile Driver 



Version 1.30 14-Jan-83" 



0D1 
001 
001 
300 
600 



SOS Profile Driver 



Revisions : 

1.10R 05-May-82 

The GOODEXIT routine was changed to complete the dummy handshake 
so any pending Profile spare table updates would get rewritten 
on the disk. 

The GETBYTES routine was changed so a bad block number would get 
flagged as such and not get flagged as a bad byte count. 

1.11R 12-May-82 

The driver is slowed to 1MHz only when talking to the card and 
doing psuedo DMA; this will enable it to make the 5:1 interleave. 
The reference to the clear parity address that occurs just after 
entering the driver was corrected to be a write instead of a read. 

1.11R 14-May-82 

The block ID check was removed when reading to speed up the driver 
and allow reading the status info which doesn't have a block ID. 
The 2nd reset, which prevented the read/write head from being 
retracted off the data area on read and write errors, was removed. 

1.12R Ol-Sep-82 

Interrupts were disabled in the LAST_PGE routine before saving 
bytes and FE, instead of just before the data transfer, since 
those bytes might be changed by an interrupt routine, and the old 
instead of the new (correct) values would get restored. 



1.30 



14-Jan-83 



Interrupts are disabled while modifying the environment register 
and RSTORENV is changed to leave the screen bit (bit 5) unmodified; 
this eleminates spurious screen flashing. Control code is 
processed as a NOP, instead of an error. 



DEVTYPE 

SUBTYPE 

MANUF 

RELEASE 

MAXBLOCK 



.EQU 
. EQU 
. EQU 
. EQU 
.EQU 



0D1 
01 

0001 
1300 
2600 



; Apple Computer Inc. 

;4.86 megabytes (+16K spares} 



SOS Profile Driver 



Version 1.30 14-Jan-83 



0000 I 


5 






.PAGE 




0000 I 


5 


















0000 


5 










0000 


5 




The macro 


SWITCH performs an N way branch based on a switch index. 


0000 I 


5 










0000 I 


5 






SWITCH [index 


, [bounds], adrs_table, [*] 


0000 I 


5 










0000 I 


5 


















0000 I 


5 










0000 I 


5 


.MACRO SWITCH 






00001 


5 




. IF 


"%1" <> "" 


If PARM1 is present, 


0000 I 


5 




LDA 


%1 


Load A with switch index 


00001 


5 




. ENDC 






0000 I 


5 




. IF 


"%2" <> "" 


If PARM2 is present, 


0000 


5 




CMP 


#%2 + l 


Perform bounds checking 


0000 


5 




BCS 


$010 


on switch index 


0000 I 


5 




.ENDC 






00001 


5 




ASL 


A 




0000 I 


5 




TAY 






0000 I 


5 




LDA 


%3+l,Y 


Get switch address from table 


0000 


5 




PHA 




and push onto stack 


0000 


5 




LDA 


%3,Y 




0000 I 


5 




PHA 






0000 I 


5 




. IF 


"%4" <> "*" 


If PARM4 is omitted, 


0000 I 


5 




RTS 




Exit to code 


0000 I 


5 




.ENDC 




Otherwise, drop through 


0000 


5 


$010 


. ENDM 




0000 I 


5 






. INCLUDE 


PROFILE. A. TEXT 



2 blocks for procedure code 23390 words left 



PAGE 
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FILE: PROFILE. A. TEXT 



SOS Profile Driver 



Version 1.30 14-Jan-83 



0000 1 5 .PROC PROFILE 
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Current memory available: 
0000 
0002 
0004 
000B| 
0012 
0016 
001D 
0024 
002B| 
0032 
00391 
003F| 
003F| 
003F 
003F 
003F| 
003F 
003F 
003F 
0041 
0043 
0044 
004B 
004C 
0053 
0054 
0055 
00561 
0057 
0058 I 
0059 
005B| 
005D 
005F| 
005F 
0061 

PAGE 



FFFF 






.WORD 


0FFFF 


3B00 


.WORD 59. 






50 72 


6F 


66 69 6C 65 


-ASCII 


"Profile Driver — " 


20 44 


72 


69 76 65 72 






20 2D 


2D 


20 ) 






43 6F 


70 


79 72 69 67 


.ASCII 


"Copyright (C) 1983 by Apple Computer Inc." 


68 74 


20 


28 43 29 20 






31 39 


38 


33 20 62 79 






20 41 


70 


70 6C 65 20 






43 6F 


6D 


70 75 74 65 






72 20 
5 


49 


6E 63 2E 






5 ; - 
5 ; 
5 ; 
5 ; 




Device Information 


Block (DIB) 


5 ; - 

5 

0000 


DIB_LINK1 


.WORD 





* * * * 


DIB 


_ENTRY1 


.WORD 


MAIN 


08 2 


DIB 


_N7AME1 


.BYTE 


8 


2E 50 


52 


4F 46 49 4C 




.ASCII ".PROFILE" 


45 2 










00 00 


00 


00 00 00 00 


. BLOCK 


7, 


80 2 


DIB 


_DNUM1 


.BYTE 


80 ; active, no page alignment 


FF 2 


DIB 


_SLOTl 


.BYTE 


OFF 


00 2 


DIB 


_UNIT1 


.BYTE 





Dl 2 


DIB 


_TYPE1 


.BYTE 


DEVTYPE 


01 2 


DIB 


_SUBTYPE1 


.BYTE 


SUBTYPE 


00 2 






.BYTE 





0026 


DIB_BLOCKl 


.WORD 


MAXBLOCK 


0100 


DIB_MID1 


.WORD 


MANUF 


0013 


DIB_RLS1 


.WORD 


RELEASE 


5 

0100 


DIB_DCBCNT1 


.WORD 


0001 /Configuration Block 


FF 2 


WRTVER 


.BYTE 


OFF 


3 


PROFILE FILE: 


PROFILE 


.A. TEXT SOS Profile Driver — Version 1 



0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 

PAGE 



SOS Global Equates (jump table entry points) 



1913 


ALLOCS IR 


.EQU 


1913 


; allocate System Interrupt Resource 


1916 


DEALCSIR 


. EQU 


1916 


; deallocate " " " 


1922 


SELC800 


. EQU 


1922 


; select/deselect i/o expansion space 


1928 


SYSERR 


. EQU 


1928 


; system error routine 


18F0 


DO_DMA 


.EQU 


18F0 


; place to reloc code for banking 


00F0 


INDDMA 


.EQU 


0F0 




18F7 


VECTLO 


.EQU 


DO DMA+7 




0018 


SOS_ZPAGE 


.EQU 


18 





3 
3 
5 
3 
3 
5 

5 

0020 
0021 
0025 
0026 
0027 
0028 
002B 
002C 
002D 
0027 
0027 
5 
5 

3 
3 
3 

5 
5 

FFEF 
FFDF 
FFD0 

F800 
C080 
C081 

C082 
C083 



SOS Error Codes 



XREQCODE 


.EQU 


20 


; Invalid request code 


XCTLCODE 


.EQU 


21 


; Invalid control/status code 


XNORESRC 


.EQU 


25 


; resource not available 


XBADOP 


.EQU 


26 


; Invalid operation 


XIOERROR 


.EQU 


27 


; I/O error 


XNODRIVE 


.EQU 


28 


;No drive connected 


XNOWRITE 


.EQU 


2B 


; Device write protected. (not supported) 


XBYTECNT 


.EQU 


2C 


; Byte count <> a multiple of 512 


XBLKNUM 


.EQU 


2D 


; Block number too large 


BADOLDDATA 


.EQU 


27 


; block has bad data from previous read 


SPTBLOVFLW 


.EQU 


27 


; spare table overflow 


Hardware 


I/O Addresses 




BANK_REG 


.EQU 


0FFEF 




E_REG 


.EQU 


0FFDF 


; system environment register 


Z_REG 


.EQU 


0FFD0 


; Zero page register for psuedo DMA 


PSUEDO_DMA 


.EQU 


0F800 


;psuedo DMA code in ROM. 


WR_PORT 


.EQU 


0C080 


; Write to Z8 RAM (byte at a time) 


RD_PORT 


.EQU 


0C081 


;Read from Z8 RAM (byte at a time) 


BUSY 


.EQU 


0C082 


;Z8 not ready 


CLR_PARITY 


.EQU 


0C083 


; Clear parity error. 


PROFILE FILE 


: PROFILE 


.A. TEXT 


SOS Profile Driver — Version 1.30 14-Jan- 



0062 1 5 
0062 1 5 
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0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0064 
0066 
0068 
0069 



5 

3 

5 
5 
5 

0000 
0004 
0001 
0005 
0002 
0006 
0003 
0007 
000C 
0008 
5 

5 ; 
5 ; 
5 ; 
5 ; 
5 ; 
5 

0000 
0002 
0003 
0001 
5 
5 

3 
3 
3 
5 
3 



10 00 
0000 
00 2 
0005 



Constants 



NOTCMD 


. EQU 





/Command line Low 


SETCMD 


.EQU 


4 


; Command line High 


SETWRT 


. EQU 


1 


; Low 


SETRD 


.EQU 


5 


; High 


INTDSABL 


.EQU 


2 




INTENABL 


.EQU 


6 




RWLO 


.EQU 


3 




RWHI 


.EQU 


7 




RST 


.EQU 


OC 




CLRRST 


.EQU 


8 





Command codes 



WDGTRD 
WDGTWRTVER 
WDGTSTAT 
WDGTWRT 



.EQU C 

.EQU 2 

.EQU 3 

.EQU 1 



SIR allocation table 



SIRADDR 
/ SIRTABLE 



SIRBANK 
SIRCOUNT 



. WORD SIRTABLE 

.BYTE 10, 
.WORD 
. BYTE 
.EQU *-SIRTABLE 



PAGE 




5 


PROFILE FILE 


: PROFILE 


.A 


0069 


5 






PAGE 




00691 


5 


















00691 


5 










00691 


5 




Local variables 




00691 


5 










00691 


5 


















00691 


5 










00691 


00 


2 


SLOTX 


.BYTE 





006A| 


00 


2 


ERROR 


.BYTE 





006B| 


00 


2 


I ERROR 


.BYTE 





006C 


5 










006CI 


00 


2 


PREVCMD 


.BYTE 





006D| 


00 


2 


PREVUNIT 


.BYTE 





006E| 


00 


2 


LENGTH 


.BYTE 





006F| 


0000 


ORGADR 


.WORD 





0071 


00 


2 


ORGBNK 


.BYTE 





0072 


00 


2 


SLOTCN 


.BYTE 





0073 


00 


2 


ADDRDMA 


.BYTE 





0074 


00 


2 


BANKDMA 


.BYTE 





0075 


00 


2 


TEMP 00 


.BYTE 





0076 


00 


2 


TEMPFE 


.BYTE 





0077 


00 


2 


MVCNT 


.BYTE 





0078 


00 


2 


CNTLO 


.BYTE 





0079 


00 


2 


CNTHI 


.BYTE 





007A| 


00 


2 


ADMODE 


.BYTE 





007B| 


00 


2 


DATDIR 


.BYTE 





007C 


00 


2 


Z8CMD 


.BYTE 





007D 


00 


2 


COUNTR 


.BYTE 





007E| 


00 


2 


MSBLOCK 


.BYTE 





007F 


00 


2 


BSYLO 


.BYTE 





0080 I 


00 


2 


LONGWAIT 


.BYTE 





0081 


00 


2 


WAITTIME 


.BYTE 





0082 | 


00 


2 


PIPPIN_RESET 


.BYTE 





00831 


00 


2 


STATUS 1 


.BYTE 





0084 


00 


2 


STATUS2 


.BYTE 





00851 


00 


2 


STATUS3 


.BYTE 





00861 


00 


2 


STATUS4 


.BYTE 





0087 


00 


2 


PARITY_ERR 


.BYTE 





0088 I 


00 


2 


RESET_FLAG 


.BYTE 





0089 


00 


2 


BAD_RESPONSE 


.BYTE 





008A| 


00 


00 


CHEKBYTS 


.WORD 




008CI 


00 


00 


.WORD 






008E| 


00 


00 


.WORD 






0090 I 


00 


2 


SVENV 


.BYTE 





0091 1 


00 


2 


DMA_CNT 


.BYTE 






SOS Profile Driver 



Version 1.30 14-Jan-83 



;if 
;if 



then no error 

then no initialization error 



; number of blocks to read. 



;Most significant block # for Profile 
; FLAG set when driver has seen busy lo 



PAGE 



FILE: PROFILE. A. TEXT 
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Version 1.30 14-Jan-83 



0092 | 
0092 
0092 | 
0092 | 



SOS Call Parameter Locations 
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0092 | 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 

0092 | 



5 ; 
5 ; 

5 

ooco 

00C1 
5 

00C2 
00C4 
00C6 
00C8 
5 

00C2 
00C3 
5 

1400 
5 
5 
b 

3 

5 
5 
5 

OOCA 
OOCB 
14CB 
OOCC 
14CD 
OOCE 
OOCF 
OODO 
00D1 
00D2 
00D3 
00D4 
00D5 



SOS_REQCODE 
SOS_UNIT 

SOS_BUF 
SOS_BYTES 
SOS_BLOCK 
SOS_BYTRD 

SOS_STCODE 
SOS_STLIST 

SOS_XPAGE 



. EQU 
.EQU 

.EQU 
. EQU 
.EQU 
.EQU 

.EQU 
.EQU 

.EQU 



0C0 
0C1 

0C2 
0C4 

0C6 
0C8 

0C2 
0C3 



;D_READ/D_WRITE SOS calls 



;D_STATUS SOS call 



More Zero page equates 



ADRLO 

ADRHI 

SISADR 
INDRCN 
SISCN 

TIMOUT 
RTRYCNT 

RTRYTHRESH 

CMD_RTRYCNT 

RSPNS 

BLK_RTRYCNT 
BLOCKLO 
BLOCKHI 



.EQU OCA /Indirect address to user data 

.EQU ADRLO+1 

.EQU SOS_XPAGE+ADRHI 

.EQU OCC /Indirect to $CN00 device locations 

.EQU SOS_XPAGE+INDRCN+l 

.EQU 0CE 

.EQU 0CF 

.EQU 0D0 

.EQU 0D1 

.EQU 0D2 

.EQU 0D3 

.EQU 0D4 

.EQU 0D5 



PAGE 
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Psuedo DMA transfer routine. Does bank switching first. 



5 
5 
5 

3 

5 

3 

5 

AC 
8E 
20 
8C 
60 

000D CDELEN 



EFFF - RELCODE LDY 
EFFF - STX BANK_REG 
00F8 - JSR PSUEDO_DMA 
EFFF - STY BANK_REG 

2 RTS 

.EQU 



BANK_REG ;This Code is moved to $18F0 

so the bank can be switched 
for psuedo DMA transfers to 
other than driver bank. 



PAGE 
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009F] 

009FI 

009F| 

009F 

009F 

009F| 

009F| 

009F| 

009F| 

00A2 | 

00A4 | 

00A7 

00A9I 

00AB| 

00AD | 

00B0 

00B3I 

00B5I 

00B8 I 

00BB| 

00BD | 

OOCO 

00C3 

00C5I 

00C8 I 

OOCB | 

00CD 

OODO I 

00D2 | 

00D3 

00D5I 

00D7 

00DA| 

00DD | 

00E0 | 

00E2 

00E5I 

00E7 | 

00E9 



5 . PAGE 



Profile driver 



Main entry point 



STA 



5 

009F MAIN 
AD DFFF - LDA 
29 DF / AND 
8D 9000 
A5 CO / 
49 08 / EOR 
F0** BEQ 
AD 5400 - 
20 2219 - 
90** BCC 
4C **** - 
AD 6B00 - 
F0** BEQ 
20 2819 - 
8D 7200 - 
A9 FF / 
8D 8200 
8D 7D00 



.EQU 



E_REG 

#0DF 
SVENV 



LDA 



; Save everything but 

; the current screen state 
SOS_REQCODE 



INIT_ENT 
LDA DIB_SLOTl 
JSR SELC800 
$20 

JMP NODRV 
$20 LDA 
ONEMEG 
JSR SYSERR 
INIT_ENT STA 
ONEMEG LDA 
STA 

STA COUNTR 



; did D_INIT encounter error? 



A2 0C / LDX 
BD 9200 
95 F0 / STA 
CA 2 DEX 
10F8 BPL 
A9 00 / LDA 
8D 8700 
8D 8900 



#CDELEN-1 
MOVCODE 

INDDMA, X 



LDA 



SLOTCN 
#0FF 
PIPPIN_RESET 

;Move code to page 
RELCODE, X 



for DMA 

to other possible banks. 



8D 8800 



STA 
STA 
STA 



35 CC / STA 



8D CD14 
A5 C6 / LDA 
85 D4 / STA 
A5 C7 / LDA 



STA 



MOVCODE 
#0 

PARITY_ERR 

BAD_RESPONSE 

RESET_FLAG 

INDRCN 
SISCN 

SOS_BLOCK 

BLOCKLO 

SOS_BLOCK+l 
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OOEB | 


85 


D5 / STA 


BLOCKHI 








00 ED 


AE 


6900 - LDX 


SLOTX 








OOFO | 


08 


2 PHP 










00F1 | 


78 


2 SEI 










00F2 | 


AD 


DFFF - LDA 


E REG 








00F5| 


09 


83 / ORA 


#83 




;slow to lmhz, ROM enable 




00F7 | 


8D 


DFFF - STA 


E_REG 








00FA| 


28 


2 PLP 










OOFB | 


AD 


7200 - LDA 


SLOTCN 








OOFE | 


10 


k * BPL 


GO_INIT 




;Branch if not initialized. 




0100 | 


85 


CD / STA 


INDRCN+1 








0102 | 


9D 


83C0 - STA 


CLR_PARITY, X 


; Clear any previous parity errors. 


0105 | 


BC 


82C0 - LDY 


BUSY, X 








0108 | 


20 


**** _ 


S2M 




;set 2MHz mode 




010B | 


98 


2 TYA 










PAGE 




9 PROFILE 


FILE: PROFILE. 


A. TEXT SOS Profile Driver — 


Version 


010C | 


29 


01 / AND 


#1 








010E | 


DO 


k * BNE 


NODRV 








0110 | 


98 


2 TYA 










0111 | 


10 


k* BPL 


$40 








0113 | 


A9 


FF / LDA 


#0FF 








0115| 


8D 


7F00 - STA 


BSYLO 








0118 | 


DO 


k * BNE 


GO INIT 








011A | 


AD 


7F00 - $4( 




LDA 


BSYLO ;has BSY been 


low? 


011D | 


DO 


k * BNE 


GO_INIT 




; branch if so 




011F | 


20 


**** - JSR 


RSTORENV 








0122 | 


A9 


27 / LDA 


#XIOERROR 








0124 | 


20 


2819 - JSR 


SYSERR 




; otherwise error exit 




0127 | 


5 












0127 | 


20 


* * * * - GO_ 


_INIT 


JSR 


DISPATCH 




012A | 


20 


**** _ 


SETUP WRITE 






012D | 


A9 


00 / LDA 


#0 








012F | 


20 


2219 - JSR 


SELC800 








0132 | 


08 


2 RSTORENV 


PHP 








0133 | 


78 


2 SEI 










0134 | 


AD 


DFFF - LDA 


E REG 








0137 | 


29 


20 / AND 


#20 








0139| 


OD 


9000 - ORA 


SVENV 




; restore environment register 




13C | 


8D 


Dt 1 1 — b 1 A 


E_REG 








013F | 


28 


2 PLP 










0140 | 


60 


2 RTS 






and exit to caller 




0141 | 


5 












0141 | 


08 


2 S2M 


PHP 








0142 | 


78 


2 SEI 










0143 | 


AD 


DFFF - LDA 


E REG 








0146 | 


29 


7F / AND 


#7F 




;and out 1MHz bit 




0148 | 


8D 


DFFF - STA 


E_REG 








014B| 


28 


2 PLP 










014C | 


60 


2 RTS 











PAGE 

014D 
014D 
015E 
015E 
0160 
0163 
0163 
0165 
0168 
0168 
016B 
016D 
0170 
0170 
0170 
0170 
0170 
0172 
0174 
0176 
0178 
017A 
017C 
017E 
0180 
0182 
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5 
5 

5 S 
A9 
20 
5 

A9 
20 
5 

20 

A9 

20 

5 

5 

5 

017 



PAGE 

DISPATCH 



20 / BAD RE Q 
2819 - JSR SYSERR 



SWITCH SOS_REQCODE, 9, SW_TABLE 

LDA #XREQCODE ; Invalid request code 



26 / BADOP LDA 
2819 - JSR 

3201 - NODRV JSR 
28 / LDA #XNODRIVE 
2819 - SYS_ERROR JSR 



#XBADOP 
SYSERR 



/Invalid operation 



RSTORENV 
;No drive connected (power off) 
SYSERR 



SW TABLE 



.EQU 



; Profile driver switch table 





.WORD 


DREAD -1 


D_READ system 




.WORD 


DWRITE-1 


D_WRITE 1 


* * * * 


.WORD 


DSTATUS-1 


D_STATUS ' 


* * * * 


.WORD 


FDCONTROL-1 


D_CONTROL ' 


5D01 


.WORD 


BADREQ-1 


GET_DEV_NUM ' 


5D01 


.WORD 


BADREQ-1 


D_INFO ' 


6201 


.WORD 


BADOP -1 


D_OPEN ' 


6201 


.WORD 


BADOP -1 


D_CLOSE 1 


* * * * 


.WORD 


DINIT-1 


D_INIT 1 


* * * * 


.WORD 


DREPEAT-1 


D REPEAT ' 



PAGE 




01! 


S4 1 


5 


01! 


!4 | 


5 


01! 


S4 1 


5 


01! 


14 1 


5 


01! 


!4 


5 


01! 


S4 


5 


01! 


!4 


5 


01! 


S4 1 


01 


01! 


!4 | 


AD 


01! 


S7 1 


AA 
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Profile driver — initialization request. 



. EQU 



; slot index : -dib. slot*16 
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0188 
018A 
018C 
018F 
0191 
0192 
0193 
0194 
0195 
0198 
019A 
019C 
019F 
01A2 
01 A3 
01A6 
01A9 
01AB 
01AE 
01B1 
01B4 
01B6 
01B9 
01BC 
01BE 
Old 
01C3 
01C5 
01C8 
01CB 
01CC 
01CD 
01CD 
01CF 
01D1 
01D3 
01D6 



85 
OA 
OA 
OA 



18 



CO / 


ORA 


#0C0 


7200 


- STA 


SLOTCN 


CD / 


STA 


INDRCN+1 


2 




ASL 


2 ASL 


A 




2 AS1 


A 




2 ASL 


A 




6900 


- STA 


SLOTX 


00 / 


LDA 


#0 


cc / 


STA 


INDRCN 


CD14 


- STA 


SISCN 


5400 


- LDA 


DIB_SL0T1 


2 CLC 






6400 


- ADC 


SIRTABLE 


6400 


- STA 


SIRTABLE 


05 / 


LDA 


#SIRCOUNT 


6200 


- LDX 


SIRADDR 


6300 


- LDY 


SIRADDR+1 


1319 


- JSR 


ALLOCSIR 



error, invalid slot # 



;Save slot CN address 



LDA 
JSR 



JSR 
JSR 



; compute SIR # 



sir : -dib . slot 1+1 6 



/allocate the slot's SIR 



BO** BCS 
AD 5400 
20 2219 
BO** BCS 
20 **** - 
AO 02 / LDY 
Bl CC / LDA 
20 ** 
20 ** 
18 2 CLC 

60 2 RTS 
5 

A9 28 / DI_ERR1 LDA 
DO** BNE DI_ERR3 
A9 25 / DI_ERR2 LDA 
8D 6B00 - DI_ERR3 STA 
20 2819 - JSR SYSERR 



DI_ERR2 ; 

DIB_SL0T1 

SELC800 
DI_ERR1 

JSR 

#INTDSABL 

(INDRCN) , Y 
SETUP WRITE 
SETUP READ 



SIR request failed 



SETUP RE AD 



#XNODRIVE 



#XNORESRC 
TERROR 



; normal exit 



; error, checksum fail/bad slot# 



; error, SIR resource not available 



PAGE 
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01D9 
01D9 
01D9 
01D9 
01D9 
01D9 
01D9 
01D9 
01D9 
01D9 
01D9 
01D9 
01D9 
01DB 
01DD 
01DF 
01E2 
01E3 
01E4 
01E7 
01E9 
01EC 
01ED 
01F0 
01F2 
01F3 
01F4 
01F5 
01F6 
01F7 
01F8 
01FA 
01FB 
01FC 
01FE 
01FF 
01FF 
0200 
0202 
0204 
0207 
0209 
020A 
020C 
020D 



Profile driver 



b 
b 
5 

D 

b 
5 
5 
b 
5 

5 ; 

5 

01D9 DSTATUS 
AO 00 / LDY 
A6 C2 / LDX 
DO** BNE 
AE 6900 - LDX 

08 2 PHP 
78 2 SEI 

AD DFFF - LDA 

09 80 / ORA 
8D DFFF - STA 
28 2 PLP 

BD 82C0 - LDA 
49 80 / 



status request. 



Status request zero returns BUSY (bit 7), and ONLINE (bit 4) 

Status request one returns device specific flags. 
Lastly, the format status code $FE is also accepted. 



.EQU 

#0 

SOS_STCODE 
$10 

SLOTX 



E_REG 
#80 

E_REG 

BUSY,X 



OA 
08 
OA 
OA 
OA 
OA 
29 
28 
6A 



ASL 
PHP 
ASL 
ASL 
ASL 
ASL 
/ AND 



; or in 1MHz bit 



#80 

; Save Busy status bit in carry 
; Save carry 

;Now shift On-Line to Bit 5. 



2 PLP 

2 ROR I 
91 C3 / STA 
60 2 RTS 
5 ! 

CA 2 $10 
DO** BNE 
AO 03 / LDY 
B9 8300 - $15 
C3 / STA 
2 DEY 
10F8 BPL 
18 2 CLC 
60 2 RTS 



#20 ; Throw away other 

; Get Busy bit again 

;And shift it to Bit 
(SOS_STLIST) , Y 

; (carry is always cleared from shift) 



(garbage) bits 
7, and On-line to 4 



91 
88 



DEX 

FORMATUS 
#3 

LDA 

(SOS_STLIST) , Y 

$15 



; branch not status code 1. 

STATUS1, Y 

;put status bytes in callers buf 
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020E| 
020E| 



5 

020E 



020E| A5 C2 / LDA 



0210 | 
0212 



C9 FE / CMP 
DO** BNE 



.PAGE 
JS . EQU 

SOS_STCODE 
#0FE 
FCODE ; 



; Test for format request, 
error, invalid status code 
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0214 
0216 
0218 
021A 
021B 
021D 
021E 
021F 
021F 
0221 

PAGE 

0224 
0224 
0224 
0224 
0224 
0224 
0224 
0224 
0224 
0224 
0224 
0224 
0226 
0228 
022A 
022C 
022D 
022E 
022E 
022E 
022E 
022E 
022E 
022E 
022E 
022E 
022E 
022E 
022E 
0231 
0233 
0235 
0238 
023A 
023C 
023F 
0241 
0243 
0246 
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AO 
A9 
91 
C8 
91 
18 
60 
5 

A9 
20 



00 / LDY 
FF / LDA 
C3 / STA 
2 I NY 
C3 / STA 
2 CLC 
2 RTS 



#0 

#OFF 

(SOS_STLIST) , Y 
(SOS_STLIST) , Y 



21 / 
2819 



FCODE 
- JSR 



#XCTLCODE 



; invalid status/control code 
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j 
5 
5 
5 
5 
5 
5 
5 

0224 



Profile driver 



control request. 



Control code must be $00 or $FE. The reset request is ignored and 
the Profile is Preformatted, hence both requests are NOPs. 



FDCONTROL 



A5 C2 / LDA 
F0** BEQ 
C9 FE / CMP 
D0F3 BNE 
18 2 $010 
60 2 RTS 
5 
5 



. EQU 



SOS_STCODE 
$010 

#0FE 
FCODE 

CLC 



; fetch control code 



; error, invalid control code 



Profile driver — repeat request. 
Retrieves the previous command and calls DREAD or DWRITE. 



5 

022E DREPEAT .EQU 
AD 6D00 - LDA PREVUNIT 
C5 CI / CMP SOS_UNIT 
DO** BNE $1 
AD 6C00 - LDA PREVCMD 
85 CO / STA SOS_REQCODE 
DO** BNE $2 
4C **** _ JMP DREAD 
C9 02 / $2 CMP 
B0** BCS $1 
4C **** _ JM p DWRITE 
4C 6301 - $1 JMP 



; Error exit if unit # changed 



#2 

;Error, previous I/O not Read/Write 
BADOP 
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0249 
0249 
0249 
0249 
0249 
0249 
0249 
0249 
024B 
024E 
0250 
0251 
0253 
0255 
0257 
0259 
025A 
025B 
025E 
0260 
0263 
0265 
0268 



This routine tests the validity of block number requested. 



FF / TSTBLKNUM LDA 
7E00 - STA MSBLOCK 



D5 / CMP 

2 CLC 
-* BNE 

D4 / LDA 

FE / CMP 
'* BCC 

2 CLC 

2 RTS 

7E00 - $10 
D4 / LDA 
5900 - CMP 
D5 / 

5A00 - SBC 
2 $20 



BLOCKHI 

$10 

BLOCKLO 

#0FE 
$10 



INC 

BLOCKLO 

DIB_BLOCKl 
LDA 

DIB_BLOCKl+l 
RTS 



#0FF 

/assume status block 



;RAM or status block? 
; branch if not 

OK exit 

MSBLOCK 
;Make sure Block number is 
; within widget's range. 
BLOCKHI 

; If carry clear then within range. 
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02691 
0269 
0269 
0269 
0269 
0269 
0269 
0269 
0269 
0269 
02691 02 
02691 20 



Getbytes subroutine. Moves SOS bytes parameter to length variable. 
If bytes are not a multiple of 512, or a block # > maxblock will be 
written or read, then XBYTECNT error exit will be done. If the first 
block to be read > MAXBLOCK-1, an XBLKNUM error exit will be done. 



69 GETBYTES 
4902 - JSR 



.EQU 
TSTBLKNUM 



/check validity of 1st block to be 
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026CI 

026C 

026E| 

026F 

0270 

0272 

0275 

0277 

0279 

027B 

027C 

027E 

0281 

0283 

0284 

0285 

02861 

0288 I 

028A| 

028B| 

028D 

028E| 

0290 

0292 

0294 

02961 

0298 I 

029A| 

029D 

029F| 

02A1 

02 A3 | 

02A3 

02A4 

02A5I 

02A7 

02AA| 

02AA| 

02AA| 

02AB| 

02AE | 

02B0 ] 



$01 



written or read 
; branch if OK 



PLA 
PLA 

/ LDA 
19 - JSR 

/ $01 

BNE 

/ LDA 
LSR 1 

BCS 
00 - STA 

BNE 
PLA 
PLA 
RTS 

/ $05 

/ LDY 
SEC 

/ SBC 
CLC 

/ ADC 

/ STA 

/ LDA 

/ ADC 

BCS 

/ STA 
02 - JSR 

/ STX 

/ STY 

BCC 



#XBLKNUM 
SYSERR 

LDA 

$10 

SOS_BYTES+l 

$10 

LENGTH 

$05 



#1 

BLOCKLO 

BLOCKLO 

BLOCKHI 

#0 
$10 

BLOCKHI 

TSTBLKNUM 

BLOCKHI 

BLOCKLO 
CALCHEK 

PLA 



;bad block number error 
SOS_BYTES 



2 $10 
2 PLA 

2C / LDA tXBYTECNT 
2819 - JSR SYSERR 



; compute last block to be wrtn or rd 
;is it valid? 



; branch if GOOD! 



;byte count not multiple of 512 



2 CALCHEK 
8C00 - STA 
FF / EOR 
8F00 - STA 



TYA 
CHEKBYTS+2 
#0FF 

CHEKBYTS+5 



PAGE 



17 PROFILE FILE: PROFILE . A . TEXT 



SOS Profile Driver 



Version 1.30 14-Jan-83 



02B3I 

02B4 | 

02B7 

02B9| 

02BCI 

02BE | 

02C1 

02C3 

02C6I 



8A 2 TXA 
8D 8B00 - ST 
49 FF / EOR 
8D 8E00 - ST 
A9 00 / LDA 
8D 8A00 - ST 
A9 FF / LDA 
8D 8D00 - ST 
60 2 RTS 



CHEKBYTS+1 
#0FF 

CHEKBYTS+4 

#0 

CHEKBYTS 
#0FF 

CHEKBYTS+3 



PAGE 



18 PROFILE FILE: PROFILE . A . TEXT 



SOS Profile Driver 



Version 1.30 14-Jan-83 



02C7 | 

02C7 

02C7 

02C7 

02C7 

02C7 

02C7 

02C7 

02C7 

02C7 

02C7 

02C9 

02CA| 

02CC 

02CD 

02CF 

02D1 

02D4 

02D6I 

02D9I 

02DCI 

02DF | 

02E1 

02E3 

02E3 

02E5I 

02E8 | 

02EA| 

02ECI 

02EE | 

02F0 

02F2 

02F5 

02F7 

02F9I 

02FCI 



Profile driver — read request. 
Transfers "bytes/512" blocks from disk to buf f er . .buf f er+bytes-1 . 



5 . PAGE 

5 ; 

5 ; 

5 
b 
5 
5 

5 . 

5 

02C7 DREAD 
A9 00 / LDA 
A8 2 TAY 
91 C8 / STA 
C8 2 I NY 
91 C8 / STA 
A5 CI / LDA 
8D 6D00 - STA 
CO / 
6C00 
6902 



. EQU 



#0 



02E3 
A9 00 / 
8D 7B00 



STA 
JSR 
JSR 
RDBLOCK 



(SOS_BYTRD) , Y 

(SOS_BYTRD) , Y 
SOS_UNIT 
PREVUNIT 

LDA 

PREVCMD 
GETBYTES 
ARB ADR 

LDA 



STA BLK_RTRYCNT 
RPAR_RETRY . EQU 



85 Dl / 
A9 OA / 
85 CF / 
A9 03 / 
85 DO / 
20 4902 
90** BCC 
A9 2D / 
20 2819 - JSR 



LDA 

- STA 
STA 
LDA 
STA 
LDA 
STA 

- JSR 



#0 

DATDIR 
CMD_RTRYCNT 
#0A 

RTRYCNT 
#3 

RTRYTHRESH 
TSTBLKNUM 
RCOM_RETRY 

LDA 

SYSERR 



02FC RCOM_RETRY 



. EQU 



;save current sos unit 
SOS_REQCODE ; save current command 

;move bytes parm to length var . 
;Get beginning address resolved. 
#2 ;Allow 2 retries 

k ; Parity error retries enter here 

; Indicate data direction is 
; read. 

; clear # communication tries 
; set retry count to 10 



; set reseek/rewrite threshold 
;make sure it's a valid block 

#XBLKNUM 
; invalid block error exit 
k ;CMD-BSY bad response retries enter here 
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A9 00 
8D 800 
A9 00 
8D 7C0 
A9 01 
85 D2 
20 **' 
90** 
4C **' 
D0E8 
5 

5 ; 

5 

20 *** 
BO** 
A9 02 
85 D2 
A9 FF 



/ LDA #0 

- STA LONGWAIT 

/ LDA IWDGTRD 

- STA Z8CMD 

/ LDA #1 

/ STA RSPNS 

* - JSR SNDCMD 
BCC $70 

* - JMP DR_ERR1 
$70 BNE 



; set up expected Z8 response 
;do a CMD-BSY handshake 



RCOM_RETRY 
Send command bytes 



;bad response - try again. 



JSR SND_CMDBYTES 
BCS RDRETRY ;try again if parity error 

/ LDA #2 

/ STA RSPNS ;set up for execution 

/ LDA #0FF 
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8D 8000 - STA 
20 **** - JSR 
B0** BCS 
D0D3 BNE 
5 

5 ; 

5 

20 **** - JSR 

B0** BCS 

10** BPL 

EE 7D00 - INC 

F0C7 BEQ 

DO** BNE 

20 **** - $10 

B0** BCS 

AD 8300 - LDA 

29 01 / AND 

DO** BNE 

AD 8400 - LDA 

29 58 / AND 

DO** BNE 



A9 02 
AO 01 
71 C8 
91 C8 
20 **** - 
F0** BEQ 
4C DF02 - 
5 

20 **** - 
C6 D3 / 
30** BMI 
4C E302 - 
5 

EE 8200 - 
DO** BNE 
20 **** - 
A9 00 / 
85 Dl / 
4C FC02 
20 **** 



LDA 
LDY 
ADC 
STA 
- JSR 

JMP 



LONGWAIT ; adjust timeout wait 

SNDCMD ;2nd CMD-BSY for read opn 

DR_ERR1 ; timeout on cmd-bsy 

RCOM_RETRY ;bad response - try again. 

read should be complete at this point 



GETSTAT 
RDRETRY 
$10 

COUNTR 
RCOM_RETRY 
DR_ERR1 

RDRETRY 

STATUS1 

#1 

LDAXIO 

STATUS2 

#58 
LDAXIO 

#2 

#1 

( SOS_BYTRD ) 
( SOS_BYTRD ) 
TSTMORE 
GOODEXIT 

RDBLOCK 



;get status bytes first 
;try again if parity error 

;time to reset PIPPIN? 
; branch if not 
; reset PIPPIN 

DATRANS 

;Now check status for good read 



;more blocks to read? 
; jump if more 



RDRETRY JSR 
DEC 

DR_ERR1 
JMP RPAR_RETRY 



DR_ERR1 
$10 



INC 



RSTORADR 
BLK_RTRYCNT 



PIPPIN_RESET 



; restore 1 ORGADR ' 
;can we retry? 



and try again 



27 / 



A9 
DO** 
5 

E6 D4 
DO** b: 
E6 D5 / 
A4 D4 / 
A6 D5 / 
20 AA02 
A5 CB / 
8D 7000 
AD CB14 
8D 7100 
CE 6E00 



- JSR 
LDA 
STA 

- JMP 

- $10 
LDAXIO 



/ TSTMORE 



RESET_PIPPIN 

#0 

CMD_RTRYCNT 
RCOM_RETRY 
JSR 
LDA 
BNE 

INC 



NOTCMDLN 
#XIOERROR 
BADEXIT 

BLOCKLO 



INC 

$010 

LDX 

- JSR 
LDA 

- STA 

- LDA 

- STA 



$010 

BLOCKHI 

LDY 

BLOCKHI 

CALCHEK 
ADRHI 

ORGADR+1 

SISADR 

ORGBNK 

DEC 



; Bump the block number 



;Are there more blocks to read? 
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0395 
0396 
0396 
0398 
039AI 20 
039DI A9 
039FI 8D 
03A2I 20 
03A5 
03A8 



5 

A9 
85 



20 
20 



01 / 
D2 / 



FF / 
7C00 



03AB| 20 ** 

03AEI 5 ; 

03AE| 60 2 

03AFI 5 



GOODEXIT 
STA 

- JSR 
LDA 

- STA 

- JSR 

- JSR 

- JSR 

- JSR 



LDA 

RSPNS 

SNDCMD 
#0FF 
Z8CMD 

SND_CMDBYTES 
SETCMDLN 
SETCMDLN 
NTCMDLN1 

RTS 



/Return Z flag set if done. 
#01 



; DUMMY HANDSHAKE FOR PROFILE TO UPDATE 
; ANY PENDING INFO TO DISK. 

; we 1 re going to send an invalid command 



; raise the CMD 
;give Profile c 
; lower the CMD 
doesn 



line 

little time 
line (so the ready light 
t go out) 



V Apple /// ProFile Hard Disk Driver 1.30 Source Code Listing --- 28 / 37 




03AF | 


48 


2 BADEXIT 


PHA 


03B0 I 


20 


9603 


- JSR 


GOODEXIT 


03B3 I 


68 


2 PLA 




03B4 | 


20 


2819 


- JSR 


SYSERR 


03B7 


5 








03B7 


AD 


6F00 


- RSTORADR LDA ORGi 


03BA| 


85 


C2 / 


STA 


SOS_BUF 


03BCI 


AD 


7000 


- LDA 


ORGADR+1 


03BF | 


85 


C3 / 


STA 


SOS_BUF+l 


03C1 


AD 


7100 


- LDA 


ORGBNK 


03C4 


8D 


C314 


- STA 


SOS_XPAGE+SOS_BUF+l 


03C7 


4C 


* * * -k 


- JMP 


ARB ADR 


03CA| 


5 








03CA| 


5 


INCLUDE 


PROFILE. B. TEXT 



; Reset addresses 



PAGE 



21 PROFILE FILE: PROFILE . B . TEXT 



SOS Profile Driver 



Version 1.30 14-Jan-83 



03CA 
03CA 
03CA 
03CA 
03CA 
03CA 
03CA 
03CA 
03CA 
03CA 
03CA 
03CA 
03CC 
03CF 
03D1 
03D4 
03D7 
03DA 
03DC 
03DF 
03DF 
03E1 
03E3 
03E3 
03E5 
03E7 
03E9 
03EB 
03EE 
03F0 
03F3 
03F3 
03F3 
03F3 
03F5 
03F8 
03FA 
03FC 
03FF 
0401 
0403 
0406 
0408 
040A 
040D 
040F 
040F 
040F 
040F 
0412 
0414 
0416 
0419 
041B 

PAGE 



Profile driver 



Transfers "bytes/512" blocks from buffer to block. .blockt (bytes/512) . 
Error status on return from subroutines is the same as for DREAD. 



5 
5 
5 

b 
b 

3 
3 
3 
5 

5 

03CA D WRITE 
A5 CO / 
8D 6C00 
A5 CI / 
8D 6D00 
6902 



write request . 



20 
20 
A9 
8D 
5 

A9 
85 
5 

A9 
85 
85 
85 



FF / 
7B00 



02 
D3 

00 
Dl 
CF 
DO 

4902 - 
** BCC 



- STA 
LDA 

- STA 

- JSR 

- JSR 
LDA 

- STA 

WRBLOCK 
STA 



.EQU 

LDA 

PREVCMD 
SOS_UNIT 

PREVUNIT 

GETBYTES 

ARB ADR 
#0FF 

DATDIR 

LDA 

BLK_RTRYCNT 



SOS_REQCODE 



; save current command 



;move bytes parm to length var . 
;Get beginning address resolved. 
; Indicate data direction is Write 



#2 



4C 
5 
5 
5 

A9 
AC 
F0> 
A9 
8D 
A9 
85 
20 



WPAR_RETRY LDA 
STA CMD_RTRYCNT 
STA RTRYCNT 
STA RTRYTHRESH 
- JSR TSTBLKNUM 
WCOM_RETRY 
JMP DW_ERR2 



;CMD-BSY retries enter here 



D0E9 

20 * 
B0** 
5 
5 
5 

AD 
69 



01 / WCOM_RETRY 
6100 - 

* BEQ 

02 / LDA 
7C00 - $10 
01 / LDA 
D2 / STA 
**** - JSR 

* BCS 
BNE 

* - JSR 
BCS 



LDA 
LDY 

$10 

tWDGTWRTVER 

STA 

#1 

RSPNS 
SNDCMD 
DW_ERR1 ; 
WCOM_RETRY ; 

SND_CMDBYTES 
$12 ; 



#0 ;parity error 

; init cmd-bsy retry variable 
; and read retry and threshold 
; variables to for write opn 
; check for valid block! 



#WDGTWRT 
WRTVER 



retries enter here 



Z8CMD 

; set up expected response 
; 1st cmd-bsy handshake 
cmd-bsy timeout error 
wrong response - try again 

;send write command string 
retry if parity error 



Now set up to send write data to widget 



7C00 
02 / 
85 D2 / 
20 * * * * 
B0** 
D0D6 



- LDA 
ADC 
STA 

- JSR 



BCS 
BNE 



Z8CMD 

#2 

RSPNS 
SNDCMD 
DW_ERR1 
WCOM_RETRY 



; set up expected response 
; 2nd cmd-bsy handshake 
; timeout on cmd-bsy 
; retry the handshake if taken 
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041D 
0420 
0422 
0425 
0425 
0425 
0425 
0427 
0429 
042C 
042E 
0430 
0433 
0436 
0438 
043A 
043D 
043D 
0440 



**** - JSR DATRANS 

* BCC $15 

**** - $12 JMP 

; now get status from write 

06 / $15 LDA 
D2 / STA RSPNS 
6100 - LDA WRTVER 

* BEQ $20 

FF / LDA #0FF 

8000 - STA LONGWAIT 

**** - $20 JSR 

* BCS DW_ERR1 

* BEQ WCONT 

B703 - JSR RSTORADR 
H;wrote bytes to z8 
F303 - JMP WCOM_RETRY 



;now transfer data to widget 
WRRETRY ; retry on parity error 

- 3rd cmd-bsy handshake 
#6 

; set up expected response 

; branch if not write/verify 

; adjust timeout value 
SNDCMD 

; timeout error - cmd-bsy 

; continue if good return status 

; restore ' ORGADR ' since already 

; and retry communication 
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0440 | 

0443 

04451 

0448 | 

044A| 

044C 

044F| 

0452 

0454 

0457 

0457 

04591 

045B| 

045B| 

045B| 

045B| 

045E| 

0460 I 

0462 | 

04651 

0467 

04691 

046B| 

046D| 

0470 

0472 

0474 

0477 

0479 

047C 

047F 

047F 

0482 

0484 

04861 



EE 8200 - 
DO** BNE 
20 **** - 
A9 00 / 
85 Dl / 
4C F303 



DW_ERR1 

S10 



INC 



- JSR 
LDA 
STA 

- JMP 

- $10 
LDAXIOERR 

- CSYSER1 



A9 27 / 
4C AF03 
5 

A9 2D / 
D0F9 BNE 
5 
5 
5 

20 **** - 
BO** BCS 
10** BPL 
EE 7D00 - INC 
F0** BEQ 
D0D7 BNE 
29 41 / $10 
D0E5 BNE 
AD 8400 - LDA 
29 48 / AND 
DODE BNE 
20 7A03 - 
FO** BEQ 
4C DF03 - 
4C 9603 - 
5 

20 B703 - 

C6 D3 / 
30BA BMI 
4C E303 - 



RESET_PIPPIN 

#0 

CMD_RTRYCNT 
WCOM_RETRY 
JSR 
LDA 

JMP 



PIPPIN_RESET 



NOTCMDLN 
#XIOERROR 
BADEXIT 



DW_ERR2 

CSYSER1 



WCONT J 
WRRETRY 
$10 

COUNTR 
WRRETRY 
DW_ERR1 

AND 

LDAXIOERR 

STATUS2 
#48 
LDAXIOERR 

TSTMORE 
DW_EXIT 

WRBLOCK 



#XBLKNUM 



GETSTAT 
; parity error 



try again 



;time to reset 
; branch if not 



#41 



JSR 



JMP 



; if pippin couldnt read its status 
;more to write? 



- DW_EXIT JM 

- WRRETRY JS 
DEC BLK_RTRYCNT 

DW_ERR1 
JMP WPAR_RETRY 



RSTORADR 
; can we retry? 



; restore 1 ORGADR ' and try again 
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04891 

04891 

04891 

04891 

0489 

04891 

04891 

04891 

04891 

04891 

04891 

04891 

04891 

04891 

04891 

04891 

04891 

048A| 

048B| 

048D 

0490 I 

0492 

04951 

0498 I 

049A| 

049D | 

04A0 | 

04A0 | 

04 A3 | 

04A6I 

04A8 | 

04AB| 

04 AC | 

04AE | 

04B0 | 

04B2 | 

04B4 

04B6I 

04B9I 

04BCI 

04BE | 

04C0 | 

04C2 

04C5 

04C8 | 

04CA| 

04CB| 

04CC 

04CE | 

04D0 

04D3I 

04D4 

04D6I 

04D9 



Profile Block I/O transfer routine. This routine will transfer 512 
bytes to/from users buffer from/to RAM buffer of Profile's Z8. It 
uses both byte at a time and psuedo DMA as necessary for the fastest 
possible transfer rate. If users buffer is on a page boundary, only 
the psuedo DMA is used. 

Because of the requirements of the psuedo DMA, a small routine is 
relocated to page $18 to swap banks before transfer. This is done 
only once per call to the driver. 

NOTE: this routine is designed to transfer no less than 512 bytes. 



2 DATRANS 
2 SEI 
02 / 



#2 



7900 
00 / 
7800 
7B00 



; Always move 512 bytes at a time 



- STA 
LDA 

- STA 

- BIT 
BMI 

* - JSR 

* - JMP 



CNTLO 
DATDIR 



$010 



SETUP READ 

$020 



**** - $010 
DFFF - $020 
7F / AND 
DFFF - STA 
2 PLP 
CA / LDA 

* BEQ 
F5 / CMP 

* BCC 
FF / EOR 
**** - JSR 
**** - JMP 

01 / $030 

* BEQ 

00 / LDA 
7700 - STA 
**** - JSR 
CA / $040 

2 DATADMA 
2 CLC 

01 / ADC 
FE / AND 
F718 - STA 

2 TXA 

FF / EOR 
7700 - STA 
9100 - STA 



JSR 
LDA 



#7F 

E_REG 



/Write or read? 
; Branch if write 

/Branch always taken. 

SETUPWRITE 
E_REG 
;and out 1MHz bit 



ADRLO 
DATADMA 

#0F5 
$030 
#0FF 
MOVIT 
FASTMOV 

AND 

$040 
#0 

MVCNT 
MOVE 

LDA 

TAX 

#1 

#0FE 

VECTLO 

#0FF 
MVCNT 
DMA_CNT 



; Is transfer on page boundary? 
;Yes, Do it fast ! ! 

/Should we bother with DMA? 
/Branch if DMA will be faster. 

/ Set up for move count 

/Done with first (partial) page. 
#1 / Is it a 2 byte boundary? 

/Yes, move first partial page. 
/Otherwise move a byte 

/ to get things aligned. 
ADRLO 

/Round up to next 2 byte boundary 



/Store as low ROM entry point. 



/Save number of bytes (-1) moved. 

/ {Guaranteed to be enough for DMA to 
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04DCI 20 **** - JSR GO_DM? 

04DFI 20 **** - 

04E2| AD 7900 - LDA CNTHI 

04E51 F0** BEQ LAST_PGE 

04E7| A9 00 / FASTMOV 

04E9 | F0DF BEQ DATADMA 



; the end of a page) 
R ADJ_ADR ; Update address and count 

; Branch if less than 1 page to move. 
#0 

; Branch ALWAYS to move next page. 



PAGE 




25 PROFILE 


FILE : PROFILE . 


B . TEXT SOS Profile Driver — Version 


04EB 


5 


.PAGE 








04EB 


AO 


00 / TRANSDNE LDY 


#0 


04ED 


AE 


6900 - LDX 


SLOTX 






04F0 


08 


2 PHP 








04F1 


78 


2 SEI 








04F2 


AD 


DFFF - LDA 


E REG 






04F5 


09 


80 / ORA 


#80 




; or in 1MHz bit 


04F7 


8D 


DFFF - STA 


E_REG 






04FA 


28 


2 PLP 








04FB 


2C 


7B00 - BIT 


DATDIR 






04FE 


10 


** BPL 


$300 






0500 


B9 


8A00 - $100 




LDA 


CHEKBYTS, Y 


0503 


9D 


80C0 - STA 


WR_PORT, 


X 




0506 


08 


2 I NY 








0507 


00 


06 / CPY 


#6 






0509 


D0F5 BNE 


$100 






050B 


20 


**** - $300 




JSR 


CHKPARITY ;Test for parity error 


050E 


08 


2 $999 


PHP 






050F 


78 


2 SEI 








0510 


20 


**** - JSR 


SETUP READ 


; restore read state 


0513 


20 


4101 - 




JSR 


S2M ;back to 2 MHz 


0516 


28 


2 PLP 








0517 


60 


2 RTS 








0518 


5 










0518 


AD 


7800 - LAST_PGE 


LDA CNTLO /Anything left to move 


051B 


F0CE BEQ 


TRANSDNE 




; Branch if not. 


051D 


38 


2 SEC 








051E 


E9 


01 / SBC 


#1 




;Note: low buffer address is always 0. 


0520 


09 


20 / CMP 


#20 




;Is there more than 32 bytes left? 


0522 


B0 


** BCS 


$20 




; If not, move last a byte at a time. 


0524 


20 


**** - JSR 


MOVIT 






0527 


4C 


EB04 - JMP 


TRANSDNE 




052A 


5 










052A 


48 


2 $20 


PHA 






052B 


A9 


01 / LDA 


#1 




;Move first 2 bytes to preserve byte 0. 


052D 


8D 


7700 - STA 


MVCNT 






0530 


20 


**** - JSR 


MOVE 




;The call to AD J_ADR is below. 


0533 


AO 


00 / LDY 


#0 




; Bytes and FE of the current page 


0535 


08 


2 PHP 








0536 


78 


2 SEI 






disallow interupts 


0537 


Bl 


OA / LDA 


(ADRLO) ,Y 




; must be preserved because of the 


0539 


8D 


7500 - STA 


TEMP 00 




; guirks of the psuedo DMA while doing 


053C 


AO 


FE / LDY 


#0FE 




; a partial page transfers. Since the 


053E 


Bl 


OA / LDA 


(ADRLO) , Y 




; branch instuction generates a false 


0540 


8D 


7600 - STA 


TEMPFE 




; address within the DMA page, byte 


0543 


68 


2 PLA 






is accessed if more than $80 bytes 


0544 


AA 


2 TAX 






(save status) 


0545 


68 


2 PLA 








0546 


29 


FC / AND 


#0FC 




; are transfered and byte FE is ac- 


0548 


09 


84 / CMP 


#84 




; cessed if less than $80. 


054A 


DO 


** BNE 


$30 






054C 


E9 


04 / SBC 


#04 




/Transfers of exactly $80 (82) are not 


054E 


A8 


2 $30 


TAY 




; allowed do to DMA code ( 


054F 


4A 


2 LSR A 






monitor listing of psuedo DMA code) 
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2 6 PROFILE 


FILE: PROFILE. 


B . TEXT SOS Profile Driver — Version 


0550 


4A 


2 LSR A 








0551 


E9 


01 / SBC 


#1 






0553 


8D 


9100 - STA 


DMA_CNT 




; Set up for exit of DMA 


0556 


8A 


2 TXA 








0557 


48 


2 PHA 






restore status to stack 


0558 


98 


2 TYA 








0559 


38 


2 SEC 








055A 


E9 


03 / SBC 


#3 






055C 


8D 


7700 - STA 


MVCNT 




; Save bytes total bytes transferred. 


055F 


A8 


2 TAY 








0560 


A9 


02 / LDA 


#02 




; Set low entry point for DMA routine. 


0562 


8D 


F718 - STA 


VECTLO 






0565 


2C 


7B00 - BIT 


DATDIR 




;Read or write? 


0568 


10 


** BPL 


$50 




; Branch if read. 


056A 


Bl 


OA / LDA 


(ADRLO) ,Y 




; Get last byte and move to both 


056C 


AO 


00 / LDY 


#0 




; byte and FE . 


056E 


91 


OA / STA 


(ADRLO) , Y 






0570 


AO 


FE / LDY 


#0FE 






0572 


91 


OA / STA 


(ADRLO) ,Y 






0574 


20 


**** - $50 




JSR GO_DMA ;Now transfer the part 


0577 


2C 


7B00 - BIT 


DATDIR 




;Was it read or write? 


057A 


30 


** BMI 


$70 




; Branch if write. 


057C 


AO 


00 / LDY 


#0 






057E 


2C 


7700 - BIT 


MVCNT 




;Now figer out where the last byte 


0581 


30 


** BMI 


$60 




; got red. 



(see Apple 3 
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05831 


AO 


FE / 


LDY 


#OFE 


;Must have been Read into FE . 


0585 I 


Bl 


CA / 


$60 


LDA 


(ADRLO) , Y 


0587 | 


AC 


7700 


- LDY 


MVCNT 


;Put it where it belongs! 


058A| 


91 


CA / 


STA 


(ADRLO) ,Y 




058C I 


AO 


00 / 


$70 


LDY 


#0 ;Now restore 


05 8E 


AD 


7500 


- LDA 


TEMP 00 




0591 1 


91 


CA / 


STA 


(ADRLO) , Y 




05931 


AO 


FE / 


LDY 


#0FE 




05951 


AD 


7600 


- LDA 


TEMPFE 




0598 I 


91 


CA / 


STA 


(ADRLO) , Y 




059A| 


28 


2 PLP 


; Interupts OK now. 


059B| 


20 




- JSR 


AD J_ADR 


;Go fix addresses and count. 


059E| 


4C 


1805 


- JMP 


LAST_PGE 




05A1 1 


5 










05A1 


8D 


7700 


- MOVIT 


STA 


MVCNT ; Number of 


05A4 


20 




- JSR 


MOVE 


;Do byte at a time. 
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05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A7 
05A8 
05AB 
05AE 
05B1 
05B4 
05B6 
05B9 
05BB 
05BE 
05C0 
05C2 
05C4 
05C6 
05C9 
05CB 
05CD 
05CF 
05D1 
05D4 
05D6 
05D9 
05DC 
05DE 
05DF 
05E1 
05E3 
05E5 
05E7 
05EA 
05ED 



This routine adjusts the count and addresses (indirect and bank 
direct) after each transfer, either byte at a time or psuedo DMA. 

Input is MVCNT. Only the processor status and accumulator are used. 
ADRLO, ADRHI, ADDRDMA, BANKDMA are all assumed to be valid, thus a 
call to ARBADR should have taken place before this routine is used. 
CNTLO, CNTHI should never be less than MVCNT, as no checking is done. 



18 


2 AD J_ADR 


CLC 




AD 


7800 


- LDA 


CNTLO 


;Adjust count and Addresses 


ED 


7700 


- SBC 


MVCNT 


; Subtract (MVCNT+1) from count 


8D 


7800 


- STA 


CNTLO 


; and add (MVCNT+1) to address. 


AD 


7900 


- LDA 


CNTHI 




E9 


00 / 


SBC 


#0 




8D 


7900 


- STA 


CNTHI 




A5 


CA / 


LDA 


ADRLO 




6D 


7700 


- ADC 


MVCNT 


; (carry was set) 


85 


CA / 




STA 


ADRLO 


A5 


CB / 


LDA 


ADRHI 




69 


00 / 


ADC 


#0 




85 


CB / 


STA 


ADRHI 




2C 


7A00 


- BIT 


ADMODE 


;Are Bank Wraps possible? 


10 


** BPL 


AD J DNE 


; Branch if not. 


C9 


81 / 


CMP 


#081 


;Time to Adjust for Wrap? 


90 


** BCC 


AD J BNK 


; Branch if not. 


29 


7F / 


AND 


#07F 


; Otherwise strip hi bit, add 1 to 


EE 


CB14 


- INC 


SISADR 


; bank pair selected indirect 


85 


CB / 


AD J_BNK STA 


ADRHI 


AD 


CB14 


- LDA 


SISADR 




8D 


7400 


- STA 


BANKDMA 




A5 


CB / 


LDA 


ADRHI 




18 


2 CLC 






69 


20 / 


ADC 


#20 


;Add $20 for bank address equiv. 


C9 


AO / 


CMP 


#0A0 


;Next bank? 


90 


** BCC 


AD J DNE 


; Branch if not. 


29 


7F / 


AND 


#07F 


;Address range must be within 20-9F 


EE 


7400 


- INC 


BANKDMA 




8D 


7300 


- AD J_DNE STA 


ADDRDMA ; Save absolute address 
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05EE 
05EE 
05EE 
05EE 
05EE 
05EE 
05EE 
05EE 
05EE 
05EE 
05EE 
05EE 
05EF 
05F0 
05F3 
05F5 
05F8 
05FA 
05FD 
0600 
0602 
0602 
0604 
0607 
060A 
060C 
060D 



5 . PAGE 
5 
5 
5 
5 
5 
5 
b 

3 

5 
5 

08 2 MOVE 
78 2 SEI 
AE 6900 - 
AO 00 / 
AD DFFF 

09 80 / 
8D DFFF 
2C 7B00 



The move routines read or write data byte at a time. Input varibles 
are ADRLO, ADRHI and MVCNT, none of which are modified (that is done 
by ADJADR) . All registers are used. Also SLOTX must contain the 
slot number times 16 for indexing the device locations for read and 
write. DATDIR indicates the direction (Read=0, Write=FF) of transfer. 



LDY 

ORA 

- STA 

- BIT 



#0 



; Get index to device locations. 



E_ 

; or 



in 1 MHz bit 



E_REG 
DATDIR 
MOVIN 



10** BPL 
5 

Bl CA / MOVOUT LDA 
9D 80C0 - STA WR_PORT,X 
CC 7700 - CPY MVCNT 
F0** BEQ MVDONE 
C8 2 I NY 

D0F3 BNE MOVOUT 



;Read or write? 
; Branch if read. 



(ADRLO) , Y 

;Done with Write? 
; Branch if done. 

; Branch always taken. 



;Move data to Z8 RAM 
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060F 
060F 
0612 
0614 
0617 
0619 
061A 
061C 
061C 
061F 
0620 



BD 8 ICO - MOVIN LDA 
91 CA / STA (ADRLO) , Y 

CC 7700 - CPY MVCNT 
FO** BEQ MVDONE 
C8 2 I NY 

D0F3 BNE MOVIN 
5 

20 4101 - MVDONE JSR 
28 2 PLP 

60 2 RTS 



RD_PORT, X 



; Branch always . 
S2M 



;Get data from Z8 RAM 



;back to 2 MHz 
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0621 
0621 
0621 
0621 
0621 
0621 
0621 
0621 
0621 
0621 
0621 
0621 
0621 
0623 
0625 
0628 
062A 
062C 
062F 
0632 
0635 
0638 
063B 
063E 
0640 
0642 
0645 
0647 
0649 
064B 
064D 
064F 
0652 
0653 
0655 
0658 
0659 
0659 
065C 
065E 
0661 
0664 

PAGE 



5 , 

5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 

A5 
85 
8D 
A5 
85 
8D 
8D 
AD 
8D 
8D 
8D 
10' 
29 
8D 
49 
F0' 
A5 
10' 
29 
EE 
18 
69 
8D 
60 
5 

AD 
29 
8D 
8D 
60 



This routine arbitrates the initial user's address in terms of both 
indirect and absolute bank address. It sets the initial states for 
ADRLO, ADRHI, ADDRDMA, BANKDMA, and ADMODE . ADMODE ' s bit 7 is set 
if extented addressing is used, otherwise it is reset (0) . ADDRDMA 
is the page address resulting within the 6502 address space, the 
low address is always the same as ADRLO. 



ARB ADR 
STA 

- STA 
LDA 
STA 

- STA 

- STA 

- LDA 

- STA 

- STA 

- STA 



02 / 
CA / 
6F00 
C3 / 
CB / 
7000 
7300 
C314 
CB14 
7100 
7A00 

* BPL 
OF / AND 
7400 - STA 
OF / EOR 

* BEQ 
C3 / LDA 

* BPL 
7F / AND 
7400 - INC 
2 S010 

20 / ADC 
7300 - STA 
2 RTS 



LDA SOS_E 

ADRLO 

ORGADR 
SOS_BUF+l 
ADRHI 

ORGADR+1 

ADDRDMA 

SOS_XPAGE+SOS_BUF+l 
SISADR 



;Get strait indirect address moved 



ORGBNK 
ADMODE 
NOBANK 
#0F 

BANKDMA 
#0F 
BANK0 

SOS_BUF+l 
S010 
#7F 

BANKDMA 
CLC 

#20 

ADDRDMA 



EFFF - NOBANK 

OF / AND #0F 

7400 - BANK0 

7A00 - STA ADMODE 

2 RTS 



; Branch if load into current bank. 



;Now test for special bank (F) 



; Subtract $80 from high byte 
; and increment bank number 

; Convert to absolute address 



BANK_REG ;Use current bank as bank select 

; for DMA purposes. 
BANKDMA 

; Clear bit 7 of mode to indicate no 
bank wrapping required. 
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0665 
0665 
0665 
0665 
0665 
0665 
0665 
0665 
0665 
0665 
0665 
0665 
0666 
0667 
066A 
066B 
066D 
066F 
0672 
0675 
0678 
067B 
067E 
067F 
0682 
0683 
0686 
0688 
068B 
068C 



5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 

08 
78 
AD 
48 
29 
09 
8D 
AD 
8D 
AE 
AD 
38 
20 
68 
8D 
A9 
8D 
28 
60 



In order to perform psuedo DMA, the call to ROM must be outside the 
Bank. This routine sets up the Z_REG and loads the X register with 
the bank desired before calling DO_DMA which has been relocated to 
page 2. It also disables interupts for the duration (up to 256 usee) 
of the transfer. 



2 GO_DMA 


PHP 


; Save interupt status 


2 SEI 




; No interupts for now. 


DFFF - LDA 


E_REG 


;And no NMI 1 s either!!! 


2 PHA 






24 / AND 


#24 


; Switch out I/O also. 


8B / ORA 


#8B 


;And write protect upper 16K! 


DFFF - STA 


E_REG 




7300 - LDA 


ADDRDMA 


;Set Z_REG to DMA page address 


DOFF - STA 


Z_REG 




7400 - LDX 


BANKDMA 




9100 - LDA 


DMA_CNT 




2 SEC 






F018 - JSR 


DO_DMA 




2 PLA 




; Restore NMI state. 


DFFF - STA 


E_REG 




18 / LDA 


#SOS_ZPAGE 


; Restore proper zero page. 


DOFF - STA 


Z_REG 




2 PLP 




; Restore interupts 


2 RTS 
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068D 

068D| 

068D| 

068D| 

068D| 

068D| 

068D| 

068D| 

068D 

068D 

068D| 

068D| 

068D| 

068D| 

068D| 

068D 

068D | 

068E| 

068F| 

0692 | 

0694 

0697 

0698 I 

069B| 

069D | 

06A0 I 

06A3I 

06A5I 

06A8 I 

06AA| 

06ACI 

06AE | 

06B1 

06B4 | 

06B7 

06B9I 

06BCI 

06BE | 

06C0 

06C2 

06C4 

06C6I 

06C7 

06C7 

06C9 

06CC 

06CE| 

06D0 I 

06D1 1 

06D1 1 

06D1 

06D1 

06D3I 



The following are routines for handling the communications protocol 
of sending commands, and receiving result codes. 



SNDCMD performs a CMD-BSY handshake with the Z8 and checks for a 
correct response. If the Z8 responds with an incorrect code, a 
'no go' code is sent by the Apple and the handshake is retried 
up to 2 times. On return, Carry-1 means a handshake timeout or 
three retries attempted. A non-zero return means an incorrect 
response from the Z8 that may be retried. 



2 SNDCMD 
2 SEI 

DFFF - LDA 
80 / ORA 
DFFF - STA 
2 PLP 

**** - JSR 
'* BCS 

**** - JSR 
'* BCS 

81C0 - LDY 

D2 / CPY 
'* BEQ 

02 / LDA 



8900 
8500 
8500 



STA 
ORA 
STA 



E_REG 
#80 

E_REG 

WAITBSYLO 
SENDERR ; 

JSR 
WAITBSYHI 
SENDERR ; 
RD_PORT,X 
RSPNS 
CONT ; 
#2 

B AD_RE S P ON S E 
STATUS3 
STATUS3 
#0AA 

BSYACK 
SENDERR ; 
CMD_RTRYCNT 
CMD_RTRYCNT 
#2 

SENDERR ; 



AA / LDA 
**** - JSR 
'* BCS 
Dl / INC 
Dl / LDY 
02 / CPY 
'* BCS 
2 RTS 

55 / CONT L 
**** - JSR BSYACK 
'* BCS SENDERR 
00 / LDA #0 
2 SENDERR RTS 



00 / WAITBSYHI 

CE / STY TIMOUT 



; or in 1 MHz bit 



error exit if BSY isn't low 
SETCMDLN ; raise cmd 

;wait for bsy to go hi 

timeout 

; read response byte from Z8 
; correct? 

yes if taken 



;tell Z8 that response not OK 

;drop cmd, wait for bsy to go lo 
timeout on bsy going lo 
;bump retry count for bad response 

;2 retries yet? 
yes if taken 



#055 



; indicate good response 



;bsy timeout 

; indicate good return to caller 



#0 



; set .5sec timeout 
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06D5I 

06D6I 

06D9I 

06DCI 

06DE | 

06DF | 

06E1 

06E3 

06E5I 

06E6I 

06E7 | 

06E7 | 

06E9I 

06ECI 

06EE | 

06F0I 

06F3I 

06F5I 

06F7 

06F8 I 

06FB| 

06FE | 

0700 

0701 

0703 

0705 

0707 

070A| 

070C 

070D 

070E 

070E 

070E| 

070E 

070E| 

070E| 

070E| 



18 2 CLC 

AE 6900 - LDX 

BD 82C0 - ALOOP 



10** BPL 
88 2 DEY 
D0F8 BNE 
C6 CE / DEC 
D0F4 BNE 
38 2 SEC 
60 2 BSYHIRET 



BSYHIRET 

ALOOP 

TIMOUT 
ALOOP 



LDA BUSY.X 
; done if taken 



AO 01 / WAITBSYLO 



AD 8000 - LDA 
F0** BEQ 
AO 10 / LDY 
8C 8100 - $10 
AO 00 / LDY 
84 CE / STY 
18 2 CLC 

AE 6900 - LDX SLOT. 
BD 82C0 - BLOOP 
30** BMI BSYLORET 
88 2 DEY 
D0F8 BNE 
C6 CE / DEC 
D0F4 BNE 
CE 8100 - DEC 
D0EF BNE 
38 2 SEC 
60 2 BSYLORET 
5 



LONGWAIT 

$10 
#10 

S 

#0 

TIMOUT 



BLOOP 

TIMOUT 
BLOOP 

WAITTIME 
BLOOP 

RTS 



#1 



; set up for 8 second wait max. 

WAITTIME 
; set .5sec timeout 



4 BUSY,X 
; done if taken 



; timeout 



SND_CMDBYTES sends the command string to widget. 
Enter with cmd-bsy-lo. Error return if get parity error 



Carry 
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070E 


5 








070E | 


20 


* * * * 


SND 


_CMDBYTES 


0711 


AD 


7C00 


- LDA 


Z8CMD 


0714 


9D 


80C0 


- STA 


WR_PORT, X 


0717 


AD 


7E00 


- LDA 


MSB-LOCK 


071A 


9D 


80C0 


- STA 


WR_PORT, X 


07 ID j 


A5 


D5 / 


LDA 


BLOCKHI 


071F 


9D 


80C0 


- STA 


WR_PORT,X 


0722 


A5 


D4 / 


LDA 


BLOCKLO 


0724 


9D 


80C0 


- STA 


WR_PORT,X 


0727 


A5 


CF / 


LDA 


RTRYCNT 


0729 


9D 


80C0 


- STA 


WR_PORT, X 


072C 


A5 


DO / 


LDA 


RTRYTHRESH 


072E 


9D 


80C0 


- STA 


WR_PORT,X 


0731 


20 


* * * * 


- JSR 


SETUPREAD 


0734 


20 


* * * * 


- JSR 


CHKPARITY 


0737 


60 


2 RTS 





SETUPWRITE /get in proper state 

;send command string - cmd, blockhi 
;blocklo, retries, retry threshold 



; finish writing last byte and 
;check for parity error 
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0738 
0738 
0738 
0738 
0738 
0738 
0738 
0738 
0738 
073B 
073C 
073D 
0740 
0742 
0745 
0746 
0749 
074C 
074F 
0752 
0755 
0756 
0759 
075C 
075F 
0760 
0763 
0766 
0769 
076C 
076F 
0770 
0770 
0770 
0770 
0770 
0770 
0770 
0770 
0770 
0773 
0776 
0779 
077A 
077B 
077D 
077F 
0782 
0785 
0788 
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; GETSTAT retrieves the status bytes from widget. 
; result code is returned in Y. 



The one-byte 



AE 


6900 - 


GETSTAT 


LDX 


08 


2 PHP 








78 


2 SEI 








AD 


DFFF - 


LDA 


E REG 




09 


80 / ORA 


#80 




8D 


DFFF - 


STA 


E_REG 




28 


2 PLP 








BD 


81C0 - 


LDA 


RD_PORT 


X 


8D 


8300 - 


STA 


STATUS 1 




BD 


81C0 - 


LDA 


RD_PORT 


X 


8D 


8400 - 


STA 


STATUS2 




BD 


81C0 - 


LDA 


RD_PORT 


X 


48 


2 PHA 








BD 


81C0 - 


LDA 


RD_PORT 


X 


8D 


8600 - 


STA 


STATUS4 




20 




JSR 


CHKPARITY 


68 


2 PLA 








0D 


8700 - 


ORA 


PARITY_ERR 


0D 


8900 - 


ORA 


BAD_RESPONSE 


0D 


8800 - 


ORA 


RESET_FLAG 


8D 


8500 - 


STA 


STATUS 3 




AD 


8300 - 


LDA 


STATUS1 




60 


2 RTS 









;get slot # 



;or in 1 MHz bit 



5 

5 ; 

5 
5 
5 
5 

5 ; 

5 

AE 

BD 

9D 

OA 

OA 

90' 

A9 

8D 

0D 

8D 

4C 



CHKPARITY checks the parity error line and shifts it into Carry, 
Carry = 1 is a parity error on return to caller. 



6900 - 
82C0 - 
83C0 - 
2 ASL 
2 ASL 
* BCC 
01 / 
8700 
8500 
8500 
4101 



CHKPARITY 



LDX 
LDA 
CLR_PARITY, X 



SLOTX 
BUSY,X 
; clear 



; get parity error 
for next transfer 



S10 
LDA #1 

- STA PARITY_ERR 

- ORA STATUS3 

- STA STATUS3 

- $10 JMP 



; shift it into carry 



; exit via setting 2 MHz mode 
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078B 
078B 
078B 
078B 
078B 
078B 
078B 
078B 
078B 
078D 
078E 
078F 
0792 
0794 
0797 
0798 
079A 
079C 
079E 
079F 



5 . 
5 ; 

5 
5 
5 

5 ; 

5 
5 

AO 
08 
78 
AD 
09 
8D 
28 
Bl 
AO 
Bl 
60 
5 



SETUPWRITE sets CRW and DATRW lo on the Apple /// interface board 
to prepare for a write operation to widget 



01 / SETUPWRITE 

2 PHP 
2 SEI 
DFFF - 
80 / ORA 
DFFF - STA 

2 PLP 
CC / LDA 

03 / SET_WRITEDIR 
CC / LDA ( INDRCN) 
2 RTS 



t80 

E_REG 

(INDRCN) , Y 

LDY 
Y 



#SETWRT 



E_REG 

; or in 1 



MHz bit 



; set crw lo 

#RWLO 
; set datarw lo 
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079F | 


5 








079F | 


AO 


05 / SETUP READ LDY 


#SETRD 


07A1 


08 


2 PHP 






07A2 


78 


2 SEI 






07A3 


AD 


DFFF - LDA 


E REG 




07A6I 


09 


80 / ORA 


#80 


; or in 1MHz 


07A8 | 


8D 


DFFF - STA 


E_REG 




07AB| 


28 


2 PLP 






07AC 


Bl 


CC / LDA 


(INDRCN) , Y 


; set crw hi 


07AE | 


AO 


07 / LDY 


#RWHI 




07B0 | 


Bl 


CC / LDA 


(INDRCN) , Y 


; set datarw 


07B2 | 


60 


2 RTS 
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07B3 | 


5 
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07B3I 


5 










07B3 | 


5 






07B3 | 


5 


; BSYACK completes the cmd-bsy handshake by outputting the response 


07B3 | 


5 


; byte to widget, dropping 


cmd, and waiting for bsy to go lo. 


07B3 | 


5 


; Enter with the widget response ($55 or $AA) in A. 


07B3 | 


5 






07B3 | 


5 






; 




07B3 | 


5 






07B3 | 


9D 


80C0 - BSYACK STA 


WR_PORT,X ; store response byte 


07B6 | 


20 


9A07 - JSR SET_WRITEDIR 


; enable bus out to widget 


07B9 | 


20 


**** - JSR NTCMDLN1 


; drop cmd 


07BC | 


20 


E706 - JSR WAITBSYLO 




07BF | 


20 


9F07 - JSR SETUPREAD 


; restore read state 


07C2 | 


4C 


4101 - JMP S2M 


; exit via setting 2 MHz mode 


07C5 | 


5 






07C5 | 


5 






07C5 


20 


9F07 - NOTCMDLN JSR 


SETUPREAD 


07C8 | 


AO 


00 / NTCMDLN1 LDY 


#NOTCMD 


07CA| 


Bl 


CC / LDA (INDRCN) , Y 




07CCI 


60 


2 RTS 




07CD | 


5 






07CD 


20 


9F07 - SETCMDLN JSR 


SETUPREAD 


07D0 


AO 


04 / LDY 


SSETCMD 


07D2 


Bl 


CC / LDA (INDRCN) , Y 




07D4 


60 


2 RTS 




07D5I 


5 






07D5I 


A9 


04 / RESET_PIPPIN LDA 


#4 


07D7 


8D 


8800 - STA RESET_FLAG 




07DA| 


0D 


8500 - ORA STATUS3 




07DD 


8D 


8500 - STA STATUS3 




07E0 


AO 


0C / LDY 


#RST 


07E2 


08 


2 PHP 




07E3 


78 


2 SEI 




07E4 


AD 


DFFF - LDA E REG 




07E7 


09 


80 / ORA #80 


; or in 1 MHz bit 


07E9| 


8D 


DFFF - STA E_REG 




07ECI 


28 


2 PLP 




07ED | 


Bl 


CC / LDA (INDRCN) , Y 




07EF| 


AO 


25 / LDY 


#25 


07F1 


88 


2 $10 DEY 




07F2 


D0FD BNE S10 




07F4 


AO 


08 / LDY #CLRRST 




07F6 


Bl 


CC / LDA (INDRCN) , Y 


; clear reset 


07F8 | 


4C 


4101 - JMP S2M 


; exit via setting 2 MHz mode 


07FB| 


5 






07FB| 


5 


END 
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AB - Absolute 


LB 




Label 


UD 




Undefined 




MC - 


Macro 


















RF - Ref 




DF 




Def 


PR 




Proc 






FC - 


Func 


















PB - Public 


PV 




Private CS 




Consts 
























ADDRDMA 


LB 


0073 | 


ADJADR 


LB 


05A7 | 


ADJBNK 


L3 


05D4 | 


ADJDNE 


LB 


05EA| 


ADMODE 


LB 


007A| 


ADRHI 


AB 


00CB | 


ADRLO 


AB 


00CA 


ALLOCS IR 


AB 


1913 | 


ALOOP 


LB 


06D9| 


ARB ADR 


LB 


0621 | 


BADEXIT 


LB 


03AF | 


BADOLDDA 


A3 


0027| 


BAD OP 


LB 


0163| 


BADREQ 


LB 


015E 


BADRESPO 


LB 


00891 


BANK0 


LB 


065E | 


BANKDMA 


LB 


0074 | 


BANK REG 


AB 


FFEF | 


BLKRTRYC 


A3 


00D3 | 


BLOCKHI 


AB 


00D5I 


BLOCKLO 


AB 


00D4 


BLOOP 


LB 


06FB| 


BSYACK 


LB 


07B3 | 


BSYHIRET 


LB 


06E6 | 


BSYLO 


LB 


007F | 


BSYLORET 


LB 


070D| 


BUSY 


AB 


C082 | 


CALCHEK 


LB 


02AA 


CDELEN 


AB 


000D | 


CHEKBYTS 


LB 


008A| 


CHKPARIT 


LB 


0770 | 


CLRPARIT 


AB 


C083 | 


CLRRST 


A3 


0008 | 


CMDRTRYC 


AB 


00D1 | 


CNTHI 


LB 


0079 


CNTLO 


LB 


00781 


CONT 


LB 


06C7 | 


COUNTR 


LB 


007D | 


CSYSER1 


LB 


0454 | 


DATADMA 


LB 


04CAI 


DATDIR 


LB 


007B| 


DATRANS 


LB 


0489 


DEALCSIR 


AB 


1916 | 


DEVTYPE 


AB 


00D1 | 


DIBBLOCK 


LB 


0059 | 


DIBDCBCN 


LB 


005F | 


DIBDNUM1 


LB 


0053 | 


DIBENTRY 


LB 


0041 | 


DIBLINK1 


LB 


003F 


DIBMID1 


LB 


005B | 


DIBNAME1 


LB 


0043 | 


DIBRLS1 


LB 


005D| 


DIBSLOT1 


LB 


0054 | 


DIBSUBTY 


LB 


0057 | 


DIBTYPE1 


LB 


0056 | 


DIBUNIT1 


LB 


0055 


DIERR1 


LB 


01CD | 


DIERR2 


LB 


01D1 | 


DIERR3 


LB 


01D3 | 


DINIT 


LB 


0184 | 


DISPATCH 


LB 


014D | 


DMACNT 


LB 


0091 | 


DODMA 


AB 


18F0 


DREAD 


LB 


02C7 | 


D RE PEAT 


LB 


022E | 


DRERR1 


LB 


0364 | 


DSTATUS 


LB 


01D9 | 


DWERR1 


LB 


0440 | 


DWERR2 


LB 


0457 | 


DWEXIT 


LB 


047C 


DWRITE 


LB 


03CA| 


EREG 


AB 




ERROR 


LB 


00 6A| 


FASTMOV 


LB 


04E7 | 


FCODE 


LB 


021F | 


FDCONTRO 


LB 


0224 | 


FORMATUS 


LB 


020E 


GETBYTES 


LB 


0269 | 


GETSTAT 


LB 


0738 I 


GODMA 


LB 


0665 | 


GOINIT 


LB 


0127 | 


GOODEXIT 


LB 


0396 | 


I ERROR 


LB 


006B| 


INDDMA 


AB 


00F0 


INDRCN 


AB 


00CC | 


INITENT 


LB 


00C0 | 


INTDSABL 


AB 


0002 | 


INTENABL 


AB 


0006 | 


LASTPGE 


LB 


0518 | 


LDAXIO 


LB 


0376 | 


LDAXIOER 


LB 


0452 


LENGTH 


LB 


6E | 


LONGWAIT 


LB 


0080 | 


MAIN 


LB 


9F | 


MANUF 


AB 


0001 | 


MAXBLOCK 


AB 


26001 


MOVCODE 


LB 


00CD | 


MOVE 


LB 


05EE 


MOV IN 


LB 


060F | 


MOVIT 


LB 


05A1 | 


MOVOUT 


LB 


0602 | 


MSBLOCK 


LB 


007E | 


MVCNT 


LB 


0077 | 


MVDONE 


LB 


061C | 


NOBANK 


LB 


0659 


NO DRV 


LB 


01681 


NOTCMD 


AB 


00001 


NOTCMDLN 


LB 


07C5 | 


NTCMDLN1 


LB 


07C8 | 


ONEMEG 


LB 


00C3I 


ORGADR 


LB 


006F| 


ORGBNK 


LB 


0071 


PARITYER 


LB 


0087| 


PIPPINRE 


LB 


0082 | 


PREVCMD 


LB 


00 6CI 


PREVUNIT 


LB 


006DI 


PROFILE 


PR 




PSUEDODM 


AB 


F800I 


RCOMRETR 


LB 


02FC 


RDBLOCK 


LB 


02DF| 


RDPORT 


AB 


C081 | 


RD RETRY 


LB 


035A| 


RELCODE 


LB 


0092 | 


RELEASE 


AB 


1300 | 


RESETFLA 


LB 


0088 | 


RESETPIP 


LB 


07D5 


RPARRETR 


LB 


02E3I 


RSPNS 


AB 


0OD2 | 


RST 


AB 


O0OCI 


RSTORADR 


LB 


03B7 | 


RSTORENV 


LB 


0132 | 


RTRYCNT 


AB 


00CF | 


RTRYTHRE 


AB 


00D0 


RWHI 


AB 


0007| 


RWLO 


AB 


00031 


S2M 


LB 


0141 | 


SELC800 


AB 


1922 | 


SENDERR 


LB 


06D0 | 


SETCMD 


AB 


0004 | 


SETCMDLN 


LB 


07CD 


SETRD 


AB 


0005 | 


SETUPREA 


LB 


079F | 


SETUPWRI 


LB 


078B | 


SETWRITE 


LB 


079A| 


SETWRT 


AB 


00011 


SIRADDR 


LB 


0062 | 


SIRBANK 


LB 


0068 


SIRCOUNT 


AB 


0005 | 


SIRTABLE 


LB 


0064 | 


SISADR 


AB 


14CB | 


SISCN 


AB 


14CD | 


SLOTCN 


LB 


0072 | 


SLOTX 


LB 


0069 | 


SNDCMD 


LB 


068D 


SNDCMDBY 


LB 


070E | 


SOSBLOCK 


AB 


00C6 | 


SOSBUF 


AB 


00C2 | 


SOSBYTES 


AB 


00C4 | 


SOSBYTRD 


AB 


00C8 | 


SOSREQCO 


AB 


00C0 | 


SOSSTCOD 


AB 


00C2 


SOSSTLIS 


AB 


O0C3I 


SOSUNIT 


AB 


00C1 | 


SOSXPAGE 


AB 


1400 | 


SOSZPAGE 


AB 


0018 | 


SPTBLOVF 


A3 


0027 | 


STATUS1 


LB 


0083 | 


STATUS2 


LB 


0084 


STATUS 3 


LB 


00851 


STATUS4 


LB 


00861 


SUBTYPE 


A3 


0001 | 


SVENV 


LB 


0090 | 


SWITCH 


MC 




SWTABLE 


LB 


0170 | 


SYSERR 


AB 


1928 


SYSERROR 


LB 


016D| 


TEMP 00 


LB 


0075| 


TEMPFE 


LB 


0076 | 


TIMOUT 


AB 


00CE | 


TRANSDNE 


LB 


04EB| 


TSTBLKNU 


LB 


0249 | 


TSTMORE 


LB 


037A 


VECTLO 


AB 


18F7 | 


WAITBSYH 


LB 


6D1 | 


WAITBSYL 


LB 


06E7 | 


WAITTIME 


LB 


0081 | 


WCOMRETR 


LB 


03F3 | 


WCONT 


LB 


045B| 


WDGTRD 


AB 


0000 


WDGTSTAT 


AB 


00031 


WDGTWRT 


AB 


0001 | 


WDGTWRTV 


AB 


0002| 


WPARRETR 


LB 


03E3I 


WRBLOCK 


LB 


03DF| 


WRPORT 


AB 


C080I 


WRRETRY 


LB 


047F 


WRTVER 


LB 


0061 | 


XBADOP 


AB 


00261 


XBLKNUM 


AB 


002D| 


XBYTECNT 


AB 


002CI 


XCTLCODE 


A3 


0021 | 


XIOERROR 


AB 


0027 | 


XNODRIVE 


AB 


0028 


XN ORE SRC 


AB 


00251 


XNOWRITE 


AB 


002B| 


XREQCODE 


AB 


00201 


Z8CMD 


LB 


007CI 


ZREG 


AB 


FFD0 | 
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Current minimum space is 21598 words. 

Assembly complete: 1453 lines 

Errors flagged on this Assembly 

### 
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